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0005 




** 
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0006 




♦• 






♦* 


0007 




♦* 


♦»* 


170 SYSTEM MAINTENANCE MONITOR *»• ♦• 


0008 




■■•• 






- •• 


0009 




«♦ 


EXECUTIVE PROGRAM FOR SMM17 


3.1-1 LIBRARY DIAGNOSTICS * 


0010 




■»* 






»* 


0011 




•* 






*• 


0012 








0013 












0015 


OFOO 




EQU 


PASSMMI$FFF-$22) 


SMM CONTROL PARAMETER. 


0016 


OFOE 




EQU 


PASSJI$FFF-*2i) 


STOP/JIMP PARAMETER. 


0017 


OFDF 




EQU 


PASEQ<$FFF-$2Q) 


LIBRARY LOADER EQUIPMENT ADDRESS 


001S 


OEAO 




EQU 


PRELORCSOEAO) 


PRELOADER STARTING ADDRESS 


0019 


0001 




EQU 


NAME(l) 


TEST AODR FOR ALF 3,10 STATEMENT 


0020 


0005 




EQU 


MUXRTAINAME*4> 


TEST A DDR OF MULTIPLEX RTN ADOR 


0021 


0006 




EQU 


T£STEQ(MUXRTA*1) 


A DOR FOR PASSING EQUIP ADORESS 


0022 


0001 




EQU 


PTC1J 


LOADER 


0023 


0002 




EQU 


CR0t2> 


DEVICE 


0024 


0003 




EQU 


HTt3) 


TYPE 


0025 


0004 




EQU 


0P(4) 


EQUATES 


O026 


0005 




EQU 


CD0(5) 




0027 


0008 




EQU 


MT8I8) 




0029 


0000 




EQU 


START<0) 


START OF TEST 


0030 


0001 




EQU 


WESTKSTART+li 


STATUS 1 EQUIP AODRESS 


0031 


0002 




EQU 


HEST2(WEST1+1) 


STATUS 2 EQUIP AODR. <0=NONE1 


0032 


0003 




EQU 


WEST3«HEST2*1) 


STATUS 3 EQUIP AOOR. (0-NONE) 


00 33 


0004 




EQU 


HEST4(HEST3*1) 


STATUS 4 EQUIP ADOR. (0=NONE> 


0034 


0005 




EQU 


WECHSTIWEST4+1) 


CAHN STATUS ADOR. (0=NONE) 


0035 


00Q6 




EQU 


WEJWECHSH-1) 


EQUIP ADORESS 


0036 


0007 




EQU 


ILTIME*1) 


INTERRUPT LINE DATA (2 WORDS) 


0037 


0009 




EQU 


PRGCLKtILT+2) 


PROGRAH CLOCK 


0038 


OOOA 




EQU 


HACTIPRGCLK+1) 


DSA ACTIVE CELL 


0039 


OOOB 




EQU 


DATLGHCHACT+1) 


DATA LENGTH TRANSFERE CEDL 


0040 


OOOC 




EQU 


TSTNAM(DATLGH+1> 


TEST NAME 


00 41 


OOOE 




EQU 


PR6ERRCTSTNAM+2) 


PROGRA t ERROR NUMBER 


0042 


OOOF 




EQU 


MNTERRCPRGERR+1) 


MONITOR ERROR NUHBER 


0043 


0010 




EQU 


ITESYM(HNTERR*1> 


INTERRUPT TIME ERROR SYMBOL 


0044 


0011 




EQU 


I0ESYM(ITESYM+1) 


I/O TIKE ERROR SYMBOL 


00 45 . 


0012 




EQU 


PRESYMUOESYM + 1) 


PROGRAMMED ERROR SYMBOL 


0046 


0013 




EQU 


AFESYM(PRESYMtl) 


ADDRESSING FAULT ERROR SYBOL 


0047 


0014 




EQU 


PEESYM(AFESYM+1> 


PAREITY ERROR SYMBOL 


0048 


0015 




EQU 


PFESYM<PEESYM+i) 


PROTECT FAULT SYMBO 


0049 


0016 




EQU 


CHANNOIPFESYM+1) 


CHANNEL NO W FIELD 
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QOSO 


0017 


EQU 


0051 


0018 


EQU 


0052 


0019 


EQU 


0053 


001A 


EQU 


0054 


001B 


EQU 


0055 


001C 


EQU 


0056 


001O 


EQU 


0057 


0Q1E 


EQU 


0058 


001F 


EQU 


0059 


0020 


EQU 


0060 


0021 


EQU 


0061 


0022 


EQU 


0062 


0023 


EQU 


0063 


0024 


EQU 


0064 


0025 


EQU 


0065 


0026 


EQU 


0066 


0027 


EQU 


0067 


0028 


EQU 


0068 


0029 


EQU 


0069 


002A 


EQU 


0070 


002B 


EQU 


0071 


002C 


EQU 


0072 


002D 


EQU 


0073 


002E 


EQU 


0074 


002F 


EQU 


0075 


0030 


EQU 


0076 


0031 


EQU 


0077 


0032 


EQU 


0078 


0033 


EQU 


0079 


0034 


EQU 


0080 


0035 


EQU 


0081 


0036 


EQU 


0082 


0037 


EQU 


0083 


038 


EQU 


0084 


0039 


EQU 


0085 


003A 


EQU 


0086 


0038 


EQU 


0087 


003C 


EQU 


0088 


0030 


EQU 


0089 


003E 


EQU 


0090 


003F 


EQU 


0091 


0040 


EQU 


0092 


0041 


EQU 


0093 


0042 


EQU 


0094 


0043 


EQU 


0095 


0044 


EQU 


0096 


0019 


EQU 


0097 


0056 


EQU 


0098 


005D 


EQU 


0099 


OOOB 


EQU 


0100 


OOOC 


EQU 


0101 


OOOD 


EQU 



EQUIPT(CHANNO+i> 

STATNOCEQUIPT+1) 

ITLINSISTATNO+1) 

XTIMEIITLINS+1) 

TIMER (X TIME *1> 

STCNTLCTIMER+1) 

LOPER(STCNTL+i» 

LOPRSPCLOPER+i) 

L0P£RA(L0PRSP+1) 

L0PERQ(L0PERA+1) 

LTNSTIL0PERQ*1) 

LINRSPtLINST+i) 

LINSTA(LINRSP+1) 

LINSTQ(LINSTA+1) 

IMRtLINSTQ+l> 

PREGfIMR+1) 

LINENO<PREG-H> 

EXIHR(LINEN0+1> 

ST1RSPCEXIMR*1) 

SKIP7«ST1RSP*1) 

ST2RSPCSKIP7+1) 

SKIP5CST2RSP+1) 

CHRSPCSKIP5*1) 

CHARSPCCHRSP+ll 

SKIP5A(CHARSP*il 

CH3RSPCSKIP5A+1) 

STKCH3RSP+1) 

SKIP8(ST1+1) 

ST2(SKIP8*1) 

SKIP4CST2+1) 

CHSTCSKIP4+1) 

CHADR(CHST-H) 

SKIP4ACCHADR+1) 

CHST3CSKIP4A+1) 

XSTICCHST3*1) 

SKIP6(XST1+11 

XST2CSKIP6+1) 

SKIP2IXST2+1) 

XCHSTCSKIP2+1) 

XCHADR(XCHST*1) 

SKIP2ACXCHA0R+1) 

XCHST3(SKIP2A*1) 

CAUP(XCHST3*1) 

HPXRTNCCALLP4-1) 

RBn(MPXRTN+l) 

TSC0ML(RBIT*1) 

SDATA (XCHST3-LINEN0) 



EQUIPMENT NO. 

STATION NUMBER 

INTERRUPT LINE NUMBERS 

TIME EXPECTED 

ACTUAL TIME 

STATUS CONTROL WORD. 

LAST OPERATION. 

LAST OPERATION RESPONSE 

LAST OPERATION (A) 

LAST OFERATION CQI 

LAST INSTRUCTION 

LAST INSTRUCTION RESPONSE 

LAST INSTRUCTION (A) 

LAST INSTRUCTION CQI 

INTERRUPT MASK REGISTER 

CONTENTS OF PREG AT ERROR TIME 

CONTENTS OF TRAPNO AT ERROR TIME 

EXPECTED MASK VALUE. 

STATUS 1 RESPONSE. 

SKIP STATUS 2 INFO 

STATUS 2 RESPONSE 

SKIP CHANNEL INFO 

CHANNEL STATUS RESPONSE 

CHANNEL ADDRESS RESPONSE 

SKIP CHANNEL STATUS 3 

CHANNEL STATUS 3 RESPONSE 

STATUS 1 

SKIP STATUS 2 INFO 

STATUS 2 

SKIP CHANNEL INFO 

CHANNEL STATUS 

CHANNEL ADDRESS 

CHECK STATUS 3 CHANNEL 

CHANNEL STATUS 3 

EXPECT STATUS U 

SKIP STATUS 2 INFO 

EXPECTED STATUS 2 

SKIP CHANNEL INFO 

EXPECTED CHANNEL STATUS 

EXPECTED CHANNEL ADDRESS 

STATUS 3 CHANNEL SHT 

STATUS 3 EXPECTED CHANNEL STATUS 

ADDRESS 00 CALLER FOR MULTIPLEX 

ADDRESS OF MULTIPLEX CALLER 

RECOGNIZE INTERRUPT BITOO 

TEST COMMAND LIST LENGTH 

LENGTH OF STATIC ERROR INFO 



TS0ATAUSC0ML-7+S0ATA) LNGTH OF VOLITILE TSDATA AREA 
TOATACTSCOML+SDATA) TOTAL LENGTH OF TEST COMMEND ARE 
ERRFLECSTART*$B> ADDRESS OF ERROR/OPERATION FILE 
CRLUNO(ERRFLE+l) NUMBER OF FILES 1 ONLY=0 
CRSUNOtCRLUNO+1) CURRENT STATION/UNIT 
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010* 
0105 
0106 
0107 
0100 
0109 
0110 
0111 
0112 
0113 
Oil* 
0115 
0116 
0117 
0110 
0119 
0120 
0121 
0122 
0123 
012* 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
013% 
0135 
0136 
0137 
0138 
0139 
0140 



0001 
0002 
0003 
000* 
0005 

0006 
0007 

0010 

0011 

0012 
0013 
001* 
0015 
0016 
0017 

0018 

0019 

001A 
0020 

0021 



ERROR 10 = 00X8 * 

FOR ALL MONITOR ERRORS • 

SHM ERROR • 

NUHBER » 

XX » 

MEHPE(fOl) MEMORY PARITY ERROR. A3«INTERRUPTE0 PROGRAM AOORESS. 

PROTECT C$02) PROTECT FAULT. A3-INTERRUPTEO PROGRAM AOORESS. 

CLRPP(S03) MONITOR MESSAGE. CLEAR COMPUTER PROTECT SWITCH(ES). 
UNREQKSO*) UNREQUESTED INTERRUPT. A3 = DECIMAL LINE NUMBER. 
ILBZYCS05) INTERRUPT LINE REQUEST CONFLICT. A3=REQUESTORS IA* 
Q3= ASSIGNED INTERRUPT PROCESSORS AOORESS. 
DATAREJff 06) TELETYPE REJECTEO DATA AFTER DATA INTERRUPT. 
ITIMER($07) MBS tJOULD NOT RETURN TO TEST AFTER INTERRUPT HI THIN 
THE TIHE SPECIFIEO BY THE TEST. 
NOMOCORIS10) LOAD AREA INSUFFICIENT FOR TEST. RETRIED AFTER TESTS 
IN CORE RAN* ABORTED IF NONE. A3*TEST ID* Q3=ASSIGNED IA. 
ILLRBOfSll) LOADER ENCOUNTERED ILLEGAL RBO BLOCK ID. A3=ID WORD. 
Q3 = CODE OF LOAD ERROR* IF ANY. LOAD ABORTED. 
NO RBO TRANSFER BLOCK FOUND. LOAO ABORTED. 
CHECKSUM ERROR. ICARO OR PAPER TAPE) ATTEMPT RELOAO. 
PAPER TAPE READER ALARM. A3=STATUS. ATTEMPT RELOAD. 
CARO READER ALARM. A3*STATUS. ATTEMPT RELOAD. 
IMPROPER CARO READER EOP. A3»C0LUMN COUNT. TRY RELOAO 
LOAD TAPE PARITY ERROR. A3- STATUS. Q3=TIMES ERROR 
RECURRED (LOAD RETRY ABORTED ON 8TH, SUCCESSFUL IF LESS) 
DPALARMCS18) OISK PACK ALARM. A3=STATUS. Q3=TIMES ERROR RECURRED 
{LOAD RETRY ABORTEO ON 50TH, SUCCESSFUL IF LESS) 
C0PALH(S19) CART. OISK ALARM. A3»STATUS. Q3-TIMES ERROR RECURRED. 

(LOAO RETRY ABORTEO ON 50TH, SUCCESSFUL LOAO IF LESS) 
OLLERR(SIA) OVERLAY LOADING ERROR ON OVLY 8 (MBS) RELOAD SYSTEM 
CORMOD($20) POST-LOAO, PRE-EXECUTION TEST MODIFICATION STOP. MC* 
MAKE CORE CHANGES WHERE TEST(S) LOAOEO. MC* RUN TO RESTART 
EQU MUTEXC(S21) ANY THO OF THE FOLLOWING TESTS HAVE BEEN 
LOADED CONCURRENTLY- MY1,MY2*MEM,RPT 



N0XFR($12) 

CKSMER($13) 

PTALARN($1*) 

CRALARM1S15) 

CRE0P(S16) 

MTPECS17) 



01*2 
01*3 
01** 



••■10 ERRORS REPORTED DURING LIB LIST INCLUDE ST0PA*/Q* = 1ST/3RD ♦• 
* RECORD WORDS. (A*=BLOCK ID* Q*=PROGRAM ADDRESS OF BLOCK DATA • 
»♦ IF ID=RB08LK. $*050) •» 



01*6 
01*7 



ff»f«»»f«««;T«f«««««»««*f**»«»«»f«»f»«««»»lt««»««»*Vli»»(l7>«>»»f«f»*«*»f*« 
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01*8 
01*9 
0150 
0151 
0152 
0153 
015* 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
016* 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
017* 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
018* 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
019* 
0195 
0196 



******************* 

* 

» MOOAYR VRSN 

* 

♦ 03207* V 3.1 

* 



REVISION RECORD 



♦ 0*227* 

* 
* 
« 



* 05077* 



06107* 
06157* 



♦ 05107* 



♦06277* V 3.1 



WHAT HAS OONEt WHY, AND BY WHOM. 
SYSTEM RELEASED 



EJH 



1. FIXED MANUAL INTERRUPT PROBLEMS 
CHANGED ENA 6 TO ENA * 

2. ADDED LINE PRINTER DRIVER TO MONITOR EJH 

3. FIXED MBS THREADING PROBEEMS ON CR 600 NS MSS 

* ADDED COPYRIGHT MSG. EJH 

ADO CHECK FOR ONE OF THE FOLLOWING TESTS 

TO BE IN CORE AT THE SAME TIME- MY1 MY2 MEM RPT 

IF MORE THAN ONE IS IN CORE- ERROR 21 IS REPORTEO 

EJH 

IMPROVE MBS INTERRUPT PROCESSING MSS/TLO 
CHANGE TTY INPUT PACKAGE FORMAT 

NO PREFEX- HEX NUMBERS 

N PREFEX- OEC NUMBERS 

B, PREFEX- SET BITS 

P PREFEX- SET P REGISTER ANO GO 

EJH 
IMPLEMENTED 8000 LOADER DEVICE TYPE 8 
OVERLAY 7. ADDED EQUATE FOR LOH CORE CELL 
SE2CUSED IN EDIT AS 8000/1732 PRELOADER SHAP 
FLAG HILL BE ZERO EXCEPT DURING OL-BINARY- 
TRANSFER ANO PRELOADER SHAP) 
ADDED MT8-EQUATE 

CHANGED DEVICE CHECK IN LIB) LISTTO INCLUDE 
80 00 TAPES. CORRECTED TTY INPUT ERROR MESS. 

N.E.JUNGJOHANN CDC CE MUNICH 
ADDED ISERR CALL TO REPORT ERROR FROM INTERRUPT 
STATE TLO 



JU 
JU 

JU 
JU 
JU 
JU 
JU 
JU 



» 07307* V 3.1-1 IMPROVE CARTRIDGE DISK LOADER JU 



* 08067* 

» 

» 08107* 

* 

» 08157* 

♦ 12037* 



* 12067* 



ADDED OMIT TTYPEOUT CK TO TTY INPUT PACKAGE SO NO 
TYPEOUTS OCCURE IF BIT 08 IS SET. EJH 
MOVED LP DRIVER TO MINIMIZE CORE REQ 
CORRECTED SENSING FOR MACHINE TYPES EJH 

CORRECTED EXIT OF LP DRIVER EJH 

SPEEOUP TO TAPE LOADER-ERROR 17 NOW ALARM// NEJ ♦»♦» 
FIXED MBS PROTECT PROBLEM CAUSED BY RIE325 LOGIC 
ADDITIONS ANO MPX CHANGES. M.S.SATTER 

FIXED PROTECT FAULT IN MBS RIE025 // NEJ 



0198 



*********** ************************************************** *********** 



60*11*00 C 



PAGE 



^ 



"A 



n 



r 



r~\, 



) o o o 



c 



o c 



o o o 



SMMOOO 



PAGE 



OATEt 12/17/74 



02QO 
0201 



0000 
0000 1C25 



ORG 
SMMOOO JMP* 




CINTX) 



SMM INITIALIZATION ROUTINE. 



0203 
020(i 
0205 
0206 
0207 

0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
022* 
0225 
0226 
227 
0220 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 



ADDRESS POINTERS AND PARAMETERS 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
00 OF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
O01B 
001C 
001D 
001E 
001F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 



037E 
030D 
0391 
0285 
0283 
004C 
05B4 
0522 
05AA 
03B8 
05CF 
0304 
0260 
0781 
0762 
0B29 
0B91 
0C7E 
0C6F 
0C84 
0030 
0D76 
0D86 
0DF5 
OEOO 
OEOB 
0E11 
0S23 
OBOF 
0OD9 
0DE3 
0DA5 
OACE 
0A7E 
0A9A 
0181 
099C 
09E9 
0220 
026A 
09CA 
08BE 
08E7 



CONTROL ADC 



STOP 



ADC 
ADC 
ADC 
ADC 
ADC 
ADC 



CPB 
RO 
HR 
HOG 



ADC 
ADC 
AOC 



REQIT 

FAKE 

JUMP 

GENRDM 

TYPEOUT ADC 

TTYBZY ADC 

MEXASC 

OVRLAY 

RELPOS 

MANUALIN ADC 

INPTTY ADC 

MONPP 

FN 

MNTRST 

CKST 

RECKST 

ERROR 

CLOCK 

RDMOLY 

FIXOLY 

SPB 



FHAI 

FHAEI 

MSINIT 

RINT 

DSELIN 

SELIN 

INTPRC 

INTX 

MPX 

PFRT 

SMERROR AOC 

TYSEL ADC 

ASCHEX 

ASCDEC 



AOC 
AOC 
ADC 
AOC 
ADC 
AOC 
ADC 
ADC 
ADC 
ADC 
ADC 
ADC 
AOC 
AOC 
AOC 
ADC 
ADC 
ADC 
ADC 
ADC 
AOC 
ADC 
ADC 
ADC 
ADC 



AOC 

ADC 



CONTRO 

PRESTP 

EXIT 

REQINT 

FCLRINT 

JUMPX 

GENRAN 

MESSAGE 

TTBUSY 

CONASC 

OVERLAY 

AQPOS 

MAINL 

INTTY 

SPP000 

FNE00O 

HNE000 

CKEOQO 

REE000 

EREOOO 

TIEOOO 

XDEOOO 

FXEOOO 

SPEOOO 

CPEOOO 

RDEOOO 

HREOOO 

HGEOOO 

RIE025 

FHEOOO 

POSOOO 

MSEOOO 

RIEOOO 

DSEOOO 

SIEOOO 

PROCESS 

INSMM17 

MPEOOO 

PFR 

SMMERRS 

INE025 

CONHEX 

CONDEC 



SHM MULTILPEX ROUTINE 

ALL STOPS AND ERRORS TYPEOUTS 

EXIT TEST WHEN PASS IS COMPLETED 

REQUEST INTERRUPR ADDRESS 

00 NOTHING ROUTINE FAKES CLRINT 

JUMP ROUTINE 

RANDOM NUMBER GENERATOR 

OUTPUT MESSAGE TO THE TELETYPE 

WAIT TTY SOFTWARE 8USY 

HEX TO ASCII CONVERSION ROUTINE 

OVERLAY CALL ROUTINE 

POINT TO RELATIVE POSITION TEST 

MANUAL INTERRUPT ROUTINE 

SET SMM PROTECT PATTERN 



AODR OF SET HOG FLAG ROUTINE 
RECOGNIZE INT RETURN 



AODR OF MBS INITIALIZE 
RECOGNIZE INTERRUPT 
DE-SELECT INTERRUPT 



CHANGED TO MCINIT IN INITIALIZE 

AODR OF MBS MULTIPLEXER 

PHR FAILURE INTRPT RESTART ADDR. 

SMM ERROR MESSAGE ROUTINE 

FHA OF MBS PACKAGE 

ASCII TO HEX CONVERSION ROUTINE 

ASCII TO DECIMAL CONVERSION 
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0252 
0253 
025(1 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
026* 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
027* 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
028* 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
029* 
0295 
0296 
0297 
0299 
0300 
0301 
0302 
0303 
030* 



002C 
002O 
0Q2E 
0Q2F 
0030 
0031 
0032 
0033 
003* 
0035 
0036 
0037 
0038 
0039 
003A 
003B 
003C 
0030 
003E 
003F 
00*0 
00*1 
00*2 
00*3 
00** 
00*5 
00*6 
00*7 
00*8 
00*9 
00*A 
00*B 



0622 
0A32 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
801E 
0000 
0000 
0000 
0000 
0000 
0000 
OOCA 
0000 
0000 
0000 
0000 
FFFF 
0200 
079* 
0000 
7F3F 
7FFF 
FFFF 
0000 
0000 
0000 



PRGLOAD 

AOINST 

INTFLG 

IOACT 

NULL 

HEXWORD 

ASCHO 

H0G2 

ILO 

AUTOPP 

CALLPT 

TKR 

TK16 

TK32 

TK6* 

TK128 

XCOHUS 

IOOATA 

IOTM1 

I0TM2 

I0TM3 

SETMASK 

STJP 

LASTVALU 

LASTAO 

INBU 

LDLCORE 

LDL1COR 

INFORM 

LASTOV 

OVFWA 



ADC 
AOC 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 
NUH 
AOC 
NUH 
NUN 
NUN 
NUH 
NUH 
NUH 
AOC 
NUH 
NUH 
NUH 
NUH 
NUH 
NUH 
NUH 



LOCONT 

TNTSTK 

* 







» . 
* ■ 
S801E 



COHUSE 



LOAD CONTROLLER 

AOOR OF HBS STACK COUNT 

HBS INT HAS OCCUREO 

OSA ACTIVE 

REQUEST OSA STOP ACTIVITY 

PTC2 
PTC2 
PTC2 

INHIBIT SHH17 INTS DURING HOG 

INTERRUPT LOCKOUT 

PROTECT CONSTANT PTC2 

AODR OF LAST RTJ TO HNTR 

TINE REMAINDER 

16 USEC CLOCK 

32 USEC CLOCK 

6* USEC CLOCK 

128 USEC CLOCK 

PTC2 



• RD/HR TIHE RUNNING 

♦ 8000-(112)CHSECI FAST CLOCK 

* 8000- C 112) CHSEC) FAST CLOCK 

* 8000-MILLISECOND SLOW CLOCK 
SFFFF MASK LINES TO BE UESD BY SHH 
$200 STOP/JUHP FOR TEST IN CONTROL. 
ENDHON1 NONITOR LWA+1 

$0 LAST LOAO LWA+1 

S7F3F RBO INPUT BUFFER 

87FFF LAST AODRESS OF BANK 

SFFFF LAST AODRESS OF BANK 1 

$0 INFORMATION WORD (SEE TABLE) 

LIB OVRLAY POSITION. IF NON ZERO 

CURRENT OVERLAY FWA ON LIB. 

INFORH = INFORNATION WORD * 



BITS 15 TO 12— CORE SIZE 



0000 



*K 



BITS 

0001 
0010 
0100 



0001 = 8K 

0010 =12K 

0011 =16K 

0100 =2 OK 

0101 «2*K 

0110 =28K 

0111 *32K 

7 TO * — BUSY SWITCHES 
0000 = 1716*06 NO. 1 
0000 = 1716,06 NO. 2 
0000 = 1716,06 NO. 3 



BIT 11— HASK SIZE 

■ * BIT HASK 

1 =16 BIT HASK 



BITS 3 TO 0— BUSY SWITCHES 
001 = TELETYPE 
010 = PAPER TAPE REAOER 
0100 = PAPER TAPE PUNCH 
1000 = CARD REAOER 



*Mt*»»»*9»»»*»*»«**«*«*»»*»*»*«*»*#*»»H*»*»M»**»»*»MU»»»**»»»»»* 
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0305 
0306 
0307 
0308 
0309 



JUMPX PROCESSING ROUTINE 



0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0722 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 



004C 0000 . JUMPX NUM 
0Q4D 680B STA* 

004E 480B STQ* 

004F COOO LDA- 

0050 0000 MISMX NUM 

0051 0111 SAN 

0052 0197 SMN 

0053 5C70 JUMPO RTJ» 

0054 1806 JMP» 

0055 0011 NUM 

- ******************* 



BITS 

15 
14 
13 = 

12 



JUNP ROUTINE - ENTER SUBROUTINE 

JUMP1 WITH A CONTAINING THE JUMP MASK. 

JUMP3 





JUHP0-»-l 

JUMP2-»-i 

IMSTOP) 

JUMP2 

$11 ID. 

SMM PARAMETER WORD ****************************** 



MANUAL INTERRUPT SWITCH. 
OR SKIP SWITCH SET- 



LOADER TYPE 001=PT 010=CARDS 011=MAG TAPE 100-85X 
101 = 1739 1000 * 8000 TAPE 



11 = CORRECTION STOP 

10 = SELECT LINE PRINTED DRIVER 

9 = SKIP HEX CORRECTION ON LOAD 

8 = SEL MBS PACKAGE f INITIALIZATION TIME ONLY) 

7 = BUILD TEST LIST 

6 = SEL TTY INPUT PACKAGE (INITIALIZATION TIME ONLY! 

5 = TYPE OUT IN NON INTERUPT MODE 

4 = LOAD TESTS AT EVEN $10 



= MEMORY SPEEO 





0=1. IMS 1=1.5HS 



1 1 
0=900NS 1=600NS 



♦ 1 = REPEAT Q.L. INITIALIZATION TIME ONLY) 

* 

* = TYPE OUT LIBRARY LIST (INITIALIZATION TIME ONLY) 

**** ****************************************** ************************** 



D349 0056 0200 SMMCNT NUM $0200 SMM17 CONTROL PARAMETER WORD. 

0350 ******************* LOADER EQUIPMENT ADDRESS ************************* 

0351 0057 1181 EQUIP NUH $1181 EQUIP ADDR FOR MT OR OP LOADER. 

0352 0058 0000 JUMP1 NUM 
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0353 


O059 0000 


JUHP3 


MUM 


» ■ 


». 


035* 


005A OAOO 


JUMP2 


ENA 







0355 


005B 68F* 




STA» 


HISWX 




0356 


005C E8EF 




LDQ» 


JUMPX 




0357 


0050 5806 




RTJ* 


LDSTJP 




0358 


005E E8FA 




LDQ» 


JUKP3 




0359 


005F A8F8 




AND» 


JUMP1 




0360 


006O 0111 




SAN 


1 




0361 


0061 08EA 




RAO» 


JUMPX 




0362 


0062 ICE 9 




JMP» 


(JUMPX) 




036* 


0063 0000 


LDSTJP 


MUM 







0365 


006* C80F 




LDA» 


LASTVALUE 


, 


0366 


0065 5CA6 




RTJ» 


(RELPOS) 




0367 


0066 0132 




SAM 


SMMSJ-»-l 




0368 


0067 G8DB 




LDA» 


STJP 


.„ 


0369 


0068 1CFA 




JHP* 


(LDSTJP) 




0370 


0069 C851 


SHMSJ 


LOA» 


MSTJP 




0371 


0Q6A 1CF8 




JMP* 


(LOSTJP) 



Q-REG TEMP SAVE 

RESET MANUAL INTERRUPT SWITCH. 



LOAD APPROPRIATE STOP/JUMP WORD. 

PROCESS THE PARAMETER STOP. 
JUMP BIT SET IN STOP/ JUMP WORD 
NO 
YES 

LOAD AREG WITH 

APPROPRIATE STOP/JUMP MORO. 
DETERMINE RELATIVE POSITION. 
ANEG = SMM REQUEST. 
APOS * TEST REQUEST. 

USE SHN STJP. 
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0373 

0374 
0375 
0376 
0377 



CONSTANT TABLE 



0379 


0Q6B 


0001 


BITOO 


NUH 


1 


0380 


006C 


0002 


BIT01 


NUN 


2 


0381 


0060 


0004 


BIT02 


NUH 


4 


0382 


006E 


0008 


BIT03 


NUN 


6 


0383 


006F 


0010 


BIT04 


NUH 


$10 


0384 


0070 


0020 


BIT05 


NUH 


$20 


0385 


0071 


0040 


BIT06 


NUH 


$40 


0386 


0072 


0080 


BIT07 


NUH 


$80 


0387 


0073 


0100 


BIT08 


NUH 


$100 


0388 


0074 


0200 


BIT09 


NUH 


$200 


8389 


0075 


0400 


BIT10 


NUH 


$400 


0390 


0076 


0800 


BIT11 


NUH 


$8 00 


0391 


0077 


1000 


BIT12 


NUH 


$1000 


0392 


0078 


2000 


8IT13 


NUH 


$2000 


0393 


0079 


4000 


BIT14 


NUH 


$4000 


0394 


007A 


8000 


BIT15 


NUH 


$8080 


0395 


007B 


0000 


HOOOO 


NUH 


$0000 


0396 


007C 


FFFF 


HFFFF 


NUH 


$FFFF 


0397 


0070 


000F 


HOOOF 


NUH 


$000F 


0398 


007E 


OOFO 


HOOFO 


NUH 


$00F0 


0399 


007F 


0F00 


HOFOO 


NUH 


$OFO0 


0400 


0080 


FOQO 


HFOOO 


NUH 


$F000 


0401 


0081 


OOFF 


HOOFF 


NUH 


$00FF 


0402 


0082 


FFOO 


HFFOO 


NUH 


$FF0O 


0403 


0083 


FFFO 


HFFFO 


NUH 


$FFFO 


0404 


0084 


OFFF 


HOFFF 


NUH 


SOFFF 


0405 


0085 


FFOF 


HFFOF 


NUH 


$FFOF 


0406' 


0086 


FOFF 


HFOFF 


NUH 


$FOFF 


0407 


0087 


7FFF 


H7FFF 


NUH 


$7FFF 


0408 


0088 


7F00 


H7F00 


NUH 


S7F00 


0409 


0089 


0780 


H0780 


NUH 


$0 780 


0410 


008A 


007F 


H007F 


NUH 


$0 07F 


0411 


0Q8B 


2020 


H2020 


NUN 


$2020 


0412 


008C 


0108 


C108 


NUH 


$108 


0413 


008O 


FEFD 


HFEFO 


NUH 


tF&D 


0414 


008E 


OEOO 


HOEOO 


NUH 


$0E00 


0415 




007B 




EQU 


ZERO(HOOOO) 



USED IN MBS HNEOO6-NNEO10 



EQUIP NUMBER MASK 



-$102 

EXIT INTERRUP INSTRUCTION 
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0*17 
0*18 
0*19 
0*20 
0*21 
0*22 
0*23 



* 

♦ * 

* TEST LIST TABLES AND PARAMETERS • 
» » 





0*25 




008F 




ORG 


» : 




0*26 


008F 


0002 


TSSEL 


NUH 


2 




0*27 


0090 


0000 


TSINIT 


NUN 







0*28 


0091 


0000 


TSACTV 


NUN 





,, 


0*30 


0092 


0101 


TSFREO 


NUN 


S0101 




0*31 


0093 


0201 




NUN 


$0201 




0*32 


0094 


0000 




NUN 





._ 


0*33 


0095 


0000 




NUN 





, 


0*3* 


0096 


0000 




NUN 







0*35 


0097 


0000 




NUN 





., 


0*36 


0098 


0000 




NUN 







0*37 


0099 


0000 




NUN 







0*36 


009A 


0000 




NUN 





... 


0*39 


009B 


0000 




NUN 







0*41 


009C 


0000 


TSEQAD 


NUM 





s„ 


0**2 


0090 


0000 




NUH 







0**3 


009E 


0000 




NUH 







0*** 


009F 


0000 




NUN 





„ 


04*5 


00A0 


OOOQ 




NUN 







04*6 


00A1 


0000 




NUH 







0**7 


0OA2 


0000 




NUH 







0**8 


O0A3 


0000 




NUH 







0449 


00A4 


0000 




NUN 







0*50 


00A5 


0000 




NUH 







0*52 


00A6 


0000 


TSIAAD 


NUH 







0*53 


00A7 


0000 




NUH 





... 


0*5* 


00A8 


0000 




NUH 







0*55 


0OA9 


0000 




NUH 







0*56 


OOAA 


0000 




NUH 







0*57 


OOAB 


0000 




NUH 







0*58 


OOAC 


0000 




NUH 







0*59 


OOAO 


0000 




NUH 







0*60 


OOAE 


0008 




NUH 







0*61 


OOAF 


0000 




NUH 







0*63 


OOBO 


0000 


TSTJP 


NUH 







0464 


00B1 


0000 




NUH 







0465 


00B2 


0000 




NUH 







0466 


00B3 


0000 




NUH 






NUHBER OF TESTS SELECTEO 
NUMBER OF TESTS INITIALIZED 
TABLE INOEX TO TEST IN CONTROL. 

COMMANO TEST 

MEHORY TEST 

1ST ZERO ENTRY TERMINATES LIST 



TEST EQUIPMENT ADORESSES 



INITIAL AODR OF INDIVIDUAL TESTS 



INDIVIDUAL TEST STOP/JUHP PARAMS 
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0*67 


00B* 


0000 




NUH 





0<»6S 


00B5 


0000 




NUM 





0*69 


0096 


0000 




NUH 





0<»70 


08B7 


0000 




NUM 





0471 


00B8 


0000 




NUH 





0472 


0089 


0000 




NUH 





0*73 


0D8A 


0000 


MSTJP 


NUH 





0*75 


008B 


0001 


BO 


BZS 


BO ID 


0*76 


OOBC 


0001 


Bl 


BZS 


Bl(l) 


0*77 


OOBD 


0001 


B2 


BZS 


82(1) 


0*78 


OOBE 


0001 


B3 


BZS 


B3C1) 


0*79 


OOBF 


0001 


B* 


BZS 


B*(l) 


0*80 


0OC0 


0001 


B5 


BZS 


B5C1I 


0*81 


00C1 


0001 


B6 


BZS 


86(1) 


0*82 


00C2 


0001 


B7 


BZS 


B7(l) 


0*83 


O0C3 


03E8 


HSTOP 


ADC 


STOPX 


0*8* 


00C* 


0225 


ISER 


AOC 


ISERR 


0*85 


00C5 


0516 


TTOTTI 


AOC 


TTYPE 


0*86 


0QC6 


0000 


RWDFLG 


NUH 






MONITOR STOP/JUMP PARAMETER. 



B0-B7 ARE MONITOR PSEUDO-REGS. 
THEY SHOULD BE USED H HEN 
POSSIBLE BUT WITH THE EFFORT 
NECESSARY TO PREVENT 
INTER-ROUTINE CONFLICT. 



TTY INPUT PACKAGE OUTPUT ENTRY . 
BECOMES NONZERO WHEN DISK AT EOF 



0*88 






- ******** 


**** 


0*89 






♦ 




0*90 






* 




0*91 






* 




0*92 






************ 


0*9* 




OOCA 




ORG 


0*95 


OOCA 


0000 


COMUSE 


NUM 


0*96 


OOCB 


0000 




NUH 


0*97 


OOCC 


0000 




NUM 


0*98 


00CO 


0000 




NUH 


0*99 


OOCE 


0000 




NUM 


0500 


OOCF 


0000 




NUH 


0501 


OQDO 


01*0 




ADC 


0502 


00D1 


00D3 




NUH 


0503 


0002 


0000 


02 


NUM 


050* 


0003 


00O1 




NUH 


0505 


000* 


O00A 


TEMPLOC 


BZS 


0506 


00OE 
OQDF 
00E0 


0000 
0000 
0000 




NUM 


0507 


00E1 


7F*F 


STOPBFR 


NUM 


0508 


O0E2 


0000 


PRLFLG 


NUM 


0509 


00E3 


0000 


TEHPTS 


NUN 


0510 


OOE* 


2020 


CHAR1 


NUH 


0511 


00E5 


2020 


CHAR2 


NUH 



********************************************** ************************** 
COMMON TEST COMMUNICATION AREA 

********************* *********************0***?**9* *********** ********** 



SCA 













REG 

SD3 



SD1 

TEMPLOC (10) 

0,0,0 



$7F*F 





$2020 

$2020 



RESERVED FOR RANDOM PROTECT 

* LOCATIONS Dlt D2» AND 03 ARE 
» RESERVEO FOR THE 1706/16 BOC 

♦ TEST (TEST NUMBER $0F) 
COMMON STORAGE USED BY ALL TESTS 

FOR USE ONLY BY COHMANO TEST 



STOPX BUFFER AREA 
USED BY DDIT DURING QL-BIN 
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0515 


0100 


0000 


LEVO 


NUH 





0516 


0101 


5424 




RTJ- 


(INTPRC) 


0517 


0102 


0000 




NUH 





0518 


0103 


0000 


LVOAOR 


NUH 





0519 


0104 


0000 


LEVI 


NUH 





0520 


0105 


5424 




RTJ- 


(INTPRC) 


0521 


0106 


0000 




NUH 





0522 


0107 


0000 


LV1A0R 


NUH 





0523 


0108 


0000 


LEV2 


NUH 





052V 


0109 


5424 




RTJ- 


1 INTPRC ) 


0525 


010A 


0000 




NUH 





0526 


01OB 


0000 


LV2ADR 


NUH 





0527 


01OC 


0000 


LEV3 


NUH 





0528 


0100 


5424 




RTJ- 


(INTPRC) 


0529 


010E 


0000 




NUH 





0530 


010F 


0000 


LV3ADR 


NUH 





0531 


0110 


0000 


LEV4 


NUH 





0532 


0111 


5424 




RTJ- 


(INTPRC) 


0533 


0112 


0000 




NUH 





0534 


0113 


0000 


LV4A0R 


NUH 





0535 


0114 


0000 


LEV5 


NUH 





0536 


0115 


5424 




RTJ- 


(INTPRC) 


0537 


0116 


0000 




NUN 





0538 


0117 


0000 


LV5A0R 


NUH 





0539 


0118 


0000 


LEV6 


NUH 





0540 


0119 


5424 




RTJ- 


I INTPRC) 


0541 


011A 


0000 




NUH 





0542 


0118 


0000 


LV6A0R 


NUH 





0543 


one 


0000 


LEV7 


NUH 





0544 


011O 


5424 




RTJ- 


(INTPRC) 


0545 


OUE 


0000 




NUH 





0546 


011F 


0000 


LV7A0R 


NUH 





0547 


0120 


0000 


LEV8 


NUH 





0548 


0121 


5424 




RTJ- 


(INTPRC) 


0549 


0122 


0000 




NUH 





0550 


0123 


0000 


LV8A0R 


NUH 





0551 


0124 


0000 


LEV9 


NUH 





0552 


0125 


5424 




RTJ- 


(INTPRC) 


0553 


0126 


0000 




NUH 





0554 


0127 


0000 


LV9A0R 


NUH 





0555 


0128 


0000 


LEV10 


NUH 





0556 


0129 


5424 




RTJ- 


(INTPRC) 


0557 


012A 


0000 




NUH 





0558 


012B 


0000 


LV10AOR 


NUH 





0559 


012C 


0000 


LEV11 


NUH 





0560 


012O 


5424 




RTJ- 


(INTPRC) 


0561 


012E 


0000 




NUH 





0562 


012F 


0000 


LV11A0R 


NUH 





0563 


0130 


0000 


LEV12 


NUH 





0564 


0131 


5424 




RTJ- 


(INTPRC) 


0565 


0132 


0000 




NUH 





0566 


0133 


0000 


LV12ADR 


NUH 





0567 


0134 


0000 


LEV13 


NUH 






OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 
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0568 
0569 
0579 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 



0135 
0136 
0137 
0138 
0139 
013A 
0138 
013C 
013D 
013E 
013F 



5424 
0000 
0000 
0000 
5424 
0000 
0000 
0000 
5424 
0000 
0000 



LV13A0R 
LEV14 



RTJ- 

NUH 

NUH 

NUH 

RTJ- 

NUH 

LV14A0R NUH 

LEV15 NUH 

RTJ- 

NUH 

LV15ADR NUH 



(INTPRC) 







IINTPRC) 







IINTPRC) 







OVERFLOW FLAG 



OVERFLOW FLAG 



OVERFLOW FLAG 



0580 
0581 
0582 
0583 
0584 



************************************************************************ 

v 

♦ PROCESS SYSTEH INTERRUPTS 

♦ 

*****V«9**V ***************** ************* »«***•*«*»****** ********* ****** 



0586 0140 0040 REG 



0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 

0617 
0618 



0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
018A 
016B 
018C 
0180 
018E 
018F 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
019A 
0198 
019C 
0190 
019E 
019F 



0246 
0000 
4834 
E8F0 
01B1 
467 B 
F080 
4820 
6AB8 
080C 
6AB7 
0F22 
B268 
0FA2 
0821 
COFF 
6AB2 
C825 
6AAD 
08EO 
CCEC 
6 OFF 
C056 
A073 
0105 
C056 
A06B 
0112 
5400 
099B 
COFF 
OOFA 



AXREPT 
PROCESS NUH 



PROC 



BZS 


REGI64I 


AOC 


REPORT 


NUH 





STQ* 


QJEHP 


LDQ* 


PROCESS 


SNO 


1 


STQ- 


(H000O) v Q 


ADQ- 


HFEFO 


STQ» 


PR0C2*1 


STA» 


REG+i.O. 


TRH 


A 


STA» 


REG+2.Q 


QRS 


2 


EOR- 


BIT00,Q 


QLS 


2 


TRA 


H 


LOA- 


I 


STA* 


REG+3,Q 


LDA» 


QTEHP 


STA» 


REG,Q 


RAO* 


PROCESS 


LOA» 


(PROCESS) 


STA- 


I 


LDA- 


SHMCNT 


ANO- 


BIT08 


SAZ 


PROC-»-l 


LOA- 


SHHCNT 


ANO- 


BITOO 


SAN 


PROC 


RTJ* 


INE000 


LOA- 


I 


INQ 


-5 



ALL REG. FOR ALL INTP. LEVELS 



SAVE Q 

SAVE OVERFLOW CONDITION (NOT 
FIRMWARE ON DUAL BANK 1700) 
CALCULATE THE DELTA (-102) 
INTERRUPT EXIT VALUE. 
(A) 

(M) WHEN INTERRUPT OCCURRED 

CLEAR INTERRUPT LINE BIT 

FROM HASK REG 

(I) WHEN INTERRUPT OCCURRED 
MOVE (Q) WHEN THE INTERRUPT 
OCCURRED TO THE REG TABLE. 

TEST INTERRUPT ROUTINE ADDRESS 
STORE IN I 

SKIP HBS CHECKS IF NOT SELECTED. 

LOOK FOR LIB LIST SELECTION 
YES. SKIP MBS CALL 

GET THIS TESTS PROCESS AODR 
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0619 


01A0 0165 




SQP 


PR0C2-*-l 


0620 


01A1 0001 




INQ 


1 


0621 


01A2 0162 




SQP 


PROCl-»-i 


0622 


Q1A3 0112 




SAN 


PR0C2-»-l 


0623 


01A4 1853 




JHP* 


CHPEPF 


0624 


01A5 1830 


PR0C1 


JMP* 


INT0N1 


0625 


01A6 EOOO 
01A7 0000 


PR0C2 


LDQ 


=N$0 


0626 


01A8 011E 




SAN 


PROCO-»-l 


0627 


01A9 CCD6 




LOA* 


(AXREPT) 


0628 


OiAA 0103 




SAZ 


3 


0629 


01AB OOOC 




TRH 


A 


0630 


01AC 6A95 




STA» 


REG*2,Q 


0631 


01AO 180C 




JNP» 


EXITL 


0632 


01AE 4 OFF 




STQ- 


I 


0633 


OiAF 0F22 




QRS 


2 


0634 


01B0 0OF5 




INQ 


-$A 


0635 


01B1 0171 




SQH 


1 


0636 


01B2 0006 




INQ 


$10-$A 


0637 


01B3 OOOA 




INQ 


$A 


0638 


01B4 0A04 




ENA 


UNREQI 


0639 


01B5 5CGA 




RTJ» 


(AXREPT) 


0640 


01B6 0000 


QTEMP 


NUN 





0642 


01B7 0400 


PROCD 


EIN 





0643 


01B8 54FF 




RTJ- 


(I) 


0644 


01B9 0814 


EXITL 


TRQ 


A 


0645 


01BA 808E 




ADD- 


hoeoo 


0646 


01B8 0500 




IIN 





0647 


01BC 6818 




STA» 


EXLEV 


0648 


01BO C600 




LDA- 


(0),Q 


0649 


01BE 0102 


XLEV02 


AOC 


LEVO+2 


0650 


01BF 0103 




SAZ 


CHKMBS-»-l 


0651 


01C0 8087 




ADO- 


H7FFF 


0652 


01C1 0844 




CLR 


A 


0653 


Q1C2 6EFB 




STA* 


(XLEV02) f Q 


0654 


01C3 CCBO 


CHKMBS 


LDA» 


(PROCESS) 


0655 


01G4 0901 




INA 


1 


0656 


01C5 0106 




SAZ 


EXIT05-»-l 


0657 


01C6 C034 




LDA- 


H0G2 


0658 


01C7 0101 




SAZ 


EXIT03-»-l 


0659 


01C8 0153 




SQN 


EXIT05-»-l 


0660 


01C9 C600 
01CA 0142 


EXIT03 


LDA* 


REG+2.Q 


0661 


01CB 0821 




TRA 


H 


0662 


01CC CAOO 
01CD FF75 


EXIT05 


LOA 


REG+3,Q 


0663 


01CE 6QFF 




STA- 


$FF 


0664 


01CF CAOO 
0100 FF70 




LDA 


REG*1»Q 


0665 


01O1 0039 




RAO- 


TK16 


0666 


0102 EAOO 

0103 FF6C 




LOQ 


REGtQ 



DID INT* OCCUR ON LINE 1 OR 

YES 

LINE 

YES HAS LINE BEEN REQUESTEO 

INT HAS OCCURRED ON LINE 1 
LOAO INTERRUPT EXIT VALUE. 

AZERO = UNREQUESTED INTERRUPT. 

SKIP IF REPORTER NOT BUSY. 

TEMPORARILY DISABLE THIS LINE 

AND EXIT INTERRUPT STATE. 
SAVE EXIT VALUE FOR REPORTER. 
FORM HEX LINE NUMBER. 
CONVERT 

TO 

DECIMAL 

EQUIVALENT. 
(ERROR CODE) 
REPORT ERROR 



GO TO THE INT ROUTINE 
MAKE EXIT INTERRUPT INST ) 

RESTORE 



OVERFLOW 



USE CURRENT MASK 
FOR MBS 



CONDITION 



CHECK FOR MBS INT STACK 

REQUEST 0=NO 
SKIP FOR EXTERNAL INTERRUPT 
REPLACE THE MASK 

RESET VIA SAME IN MUX CONTROL, 



UPDATE COUNTER (MBS) 
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0667 
0668 
0669 
0670 
0671 
0672 
0673 
067V 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 

0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0698 
0699 
0700 
0701 
0702 
0703 



0104 
0105 
0106 
01D7 
0108 
0109 
010A 
01OB 
01OC 
010D 
Q10E 
01DF 
01E0 
01E1 
01E2 
01E3 
01E4 
01E5 
01E6 
01E7 
01E8 
01E9 
01EA 
01EB 
01EC 
01EO 

01EE 
01EF 
01F0 
01F1 

01F2 
01F3 
01F4 
01F5 
01F6 



0000 
OCFB 
48DF 
EA1B 
0844 
0201 
A060 
0114 
0809 
E808 
0140 
18F7 
0854 
8810 
E803 
0116 
C800 
03BE 
0112 
CAOF 
0111 
OOOl 
GAOC 
6 OFF 
COFF 
18B8 

00A1 
00E1 
00C1 
0091 

OOOO 
0000 
0000 
0000 
0577 



EXLEV 
INTONi 

PR0C3 



PR0C4 



PR0C5 
PR0C5A 

PR0C6 
SLSPIO 



SLSPAD 



NUN 

ENQ 

STQ* 

LDQ* 

CLR 

INP 

ANO- 

SAN 

RAO* 

LDQ* 

SQZ 

JMP» 

TCQ 

ADD* 

LDQ* 

SAN 

LDA 





-4 

QTEMP 

SLSPI0+4,Q 

A 

1 

BIT02 

PR0C4-*-! 

QTEMP 

QTEHP 

PR0C6-*-l 

PR0C3 

A 

SLSPIO+3 

QTEHP 

PR0C5A-*-l 

INTACT 



SAN PR0C5-*-l 

LDA* SLSPA0*4 f Q 

SAN PR0C5A-*-! 

INQ 1 

LDA* SLSPAD+4,Q 

ST A- I 

LOA- I 

JMP* PR0C2 

-SLOW SPEEO PACKAGE TABLES- 

NUH SA1 

NUN $E1 

NUN $C1 

NUH $91 

NUN 

NUH 

NUH 

NUN 

AOC HE SSI N 



EXIT INTERRUPT STATE 
INTERRUPT ON LINE 1 

CHECK INTERRUPT STATUS OF EACH 
STATION IN THE LOW SPEED PACKAGE 

0004 

HAS THIS STATION INTERRUPTED 

NO 

HAVE ALL STATIONS BEEN CHECKED 
NO. ONE HORE 



INTERRUPT FROH THE TELETYPE 
YES, Q« -1 

SHH TYPING IN INT. HODE 

NO, HAS A TEST REQUESTED THE 

TELETYPE INTS. 

NO. GO TO HESSIN, CHECK HAN.INT. 

STORE THE INT. ROUTINE ADDRESS 

IN THE I RE6ISTER AND GO CHECK 

TO SEE IF THE INT HAS REQUESTED 

** STATION ADDRESSES ** 
1721 PAPER TAPE READER 
1729 CARD READER 
1723 PAPER TAPE PUNCH 
1711, 1712, 1713 TELETYPES 

*» REQUEST ADDRESSES ** 
1721 
1729 
1723 

1711, 1712, 1713 
SHH MESSAGE REQUEST 



0705 
0706 
0707 
0708 
0709 
0710 
0711 

0713 
07.14 
0715 
0716 
0717 
8718 



01F7 60FF 
01F8 E048 
01F9 0174 
01FA C473 
01FB A087 
01FC 6473 



* * 

* CHECK FOR HEHORY PARITY ERROR OR PROTECT FAULT * 

* ON UNREQUESTEO LEVEL INTERRUPTS. IF NEITHER, » 

* ENTER POWER FAILURE ROUTINE. * 

* * 

1^4.^99 ^^^************ ****************************************** ********** 



CHPEPF STA- 
LOQ- 
SQH 
LOA- 
ANO- 
STA- 



I 

LOL1COR 

CKPE~*-1 

(SIT06) 

H7FFF 

CBIT08) 



FLAG EXIT VALUE AS ZERO. 

SKIP IF DUAL BANK 1700. 
OTHERWISE, STRIP OFF 

OVERFLOW BIT ON TRAP AOORESS. 
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0719 


01FD 08** 




CLR 


A 


0720 


01FE 01D1 


CKPE 


SNP 


CKPF-*-l 


0721 


01FF 1817 




JMP* 


PE 


0722 


0200 01E1 


CKPF 


SPF 


PFE0OO-*-l 


0723 


0201 181 A 




JMP* 


PHR 


0724 


0202 E*73 


PFE0 00 


LOQ- 


(Bnoa» 


0725 


0203 OOFE 




INQ 


-1 


0726 


020* **73 




STQ- 


IBIT08) 


0727 


0205 ODFO 




INQ 


-2 


0728 


0206 E201 




LDQ- 


ltd 


0729 


0207 OOFO 




INQ 


-2 


0730 


0208 C201 




LDA- 


l.Q 


0731 


0209 0000 
020A 5*00 




EOR 


= N$5*00 


0732 


020B 09FE 




INA 


-CONTROL 


0733 


020C 0133 




SAM 


PFE005-*-l 


073* 


0200 09OC 




INA 


CQNTROL-SELIN-1 


0735 


020E 0121 




SAP 


PFE005-*-l 


0736 


020F 181* 




JMP* 


XITINT 


0737 


0210 £056 


PFE0 05 


LDQ- 


SMMCNT 


0738 


0211 0FA7 




QLS 


7 


0739 


0212 0162 




SQP 


PF-*-l 


07*0 


0213 1*00 
021* 0EF2 




JHP+ 


PFE010 


07*1 


0215 OA01 


PF 


ENA 


PROTECT-MEMPE 


07*2 


0216 0901 


PE 


INA 


MEMPE 


07*3 


0217 E82F 




LDQ* 


REPORT 


07** 


0218 015A 




SQN 


XITINT-*-l 


07*5 


0219 E*73 




LDQ- 


(BITD8) 


07*6 


021A 582C 




RTJ» 


REPORT 


07*7 


021B 0*78 


PHR 


RAO- 


(HOOOO) 


07*8 


021C 0A18 




ENA 


S18 


07*9 


0210 0C7F 




ENQ 


S7F 


0750 


021E 0000 




SLS 




0751 


021F 1CFE 




JMP* 


(*-l) 


0752 


0220 C*78 


PFR 


LDA- 


(HOOOO) 


0753 


0221 09FE 




INA 


-1 


075* 


0222 6*7B 




STA- 


(HOOOO) 


0755 


0223 EOFF 


XITINT 


LDQ- 


I 


0756 


022* 189* 




JMP* 


EXITL 


0759 


0225 0000 


ISERR 


HUH 





0760 




* 






0761 


0226 0500 




UN 





0762 


0227 *80O 




STQ* 


ISERRQ 


0763 


0228 5800 




RTJ* 


BUSY 


076* 


0229 1805 




JMP* 


ISERR1 


0765 


022AT E80A 




LOQ* 


ISERRQ 


0766 


022B CCF9 




LOA* 


(ISERR) 


0767 


022C 6205 




STA- 


5.Q 


0768 


0220 18F5 




JMP» 


XITINT 



REPORT PARITY ERROR 

MUST BE 

GET TRAP ADDRESS 



GET ADOR OF CALLING INST 



GET THE INSTRUCTION 
CHECK FOR LEGAL RTJ- 



PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
INST WITH 



DELTA BETHEEN C0NTR0L-SELPTC2 
NOT LEGAL PTC2 

CHECK UPPER BOUNDS PTC2 

NOT LEGAL RTJ- INST PTC2 

LEGAL - EXIT PTC2 

PTC2 



SKIP IF MBS NOT SELECTED. 
GO TO MBS 



IFORM ERROR CODE) 



PTC2 



IGNORE REPORT IF REPORTER BUSY 

(ERROR INFO) 

REPORT ERROR. 

POWER FAILURE CAUSED INTERRUPT. 



POWER FAILURE IRPT DETECTED » 



RESTORE MC RESTART JUMP. 

(EXIT VALUE) 

RESTORE REGS* EXIT INTRPT STATE. 



ROUTINE TO REPORT ERRORS FROM 
INTERRUPT STATE 

SAVE Q (TEST BIAS) 

CHECK STOPX-ERR-MSG FOR BUSY 

NOT BUSY RETURN 

BUSY RETURN 

BUSY RETURN ADDRESS TO IA*5 

EXIT THROUGH EXITL IF BUSY 
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0770 


022E 08F6 


ISERR1 


RA0» 


ISERR 


077i 


022F CCF5 




LOA* 


CISERR) 


0772 


0230 6803 




STA» 


ISERR2 


0773 


0231 0400 




EIN 





0774 


0232 1C01 




JHP* 


CISERR2) 


0775 




* 






0776 


0233 0000 


ISERR2 


NUM 


* 


0777 


0234 0000 


ISERRQ 


NUM 


* 


0779 


0235 0000 


BUSY 


NUM 





0780 




* 






0781 




* 






0782 


0236 OCFO 




ENQ 


-2 


0783 


0237 CA2A 


RPTOO 


LDA» 


FLGNSG.Q 


0784 


0238 OilB 




SAN 


RPT02B-*-l 


0785 


0239 0142 




SQZ 


RPT01-*-l 


0786 


023A 0001 




INQ 


1 


0787 


023B 18FB 




JHP» 


RPTOO 


0788 


023C OCFA 


RPT01 


ENQ 


-5 


0789 


023D C573 




LOA- 


C8IT08).I 


0790 


D23E 9A29 


RPT02 


SUB* 


A0R6,Q 


0791 


023F 0103 




SAZ 


RPT02A-*-l 


0792 


02*0 0144 




SQZ 


RPT02C-*-l 


0793 


02*1 0001 




INQ 


1 


0794 


0242 18F8 




JMP* 


RPT02 


0795 


02*3 0F2I 


RPT02A 


QRS 


1 


0796 


024* O8F0 


RPT02B 


RAO* 


BUSY 


0797 


0245 1CEF 


RPT02C 


JHP* 


(BUSY) 


0799 




* 






0800 


0246 0000 


REPORT 


NUN 





0801 




* 






0802 


0247 0*00 




EIN 





0803 


0248 6820 




STA* 


ENTA 


080<> 


02*9 4820 




STQ» 


ENTQ 


0805 


02*A 58EA 




RTJ* 


BUSY 


0806 


02*B 180 8 




JMP* 


RPT06 


0807 




* 






0808 




* 






0809 


02*C EA12 


RPT04 


LDQ* 


RTNMSG.Q 


0810 


024D C201 




LDA- 


1«Q 


0811 


024E 6800 




STA» 


RPTRTN 


0812 


024F COOO 
0250 0256 




LOA 


=XRPT10 


0813 


0251 6201 




STA- 


i.Q 


081*1 


0252 18O0 


RPT05 


JMP* 


XI TINT 


0816 


0253 COOO 

0254 0223 


RPT06 


LOA 


sXXITINT 


0817 


0255 6806 




STA* 


RPTRTN 


0818 


0256 C812 


RPT10 


LOA* 


ENTA 


0819 


0257 E812 




LDQ* 


ENTQ 



NOT BUSY 



NOT BUSY-EXIT TO TEST 

NOT BUSY EXIT ADDRESS 
SAVE Q 

THIS SUBROUTINE CHECKS TO SEE 
IF STOPX-MSG-SMMERR HAS 
INTERRUPTED 

OETERMINE IF SMMERRS, STOPX. 

OR TYPEOUT ROUTINE INTERRUPTED 
SKIP IF FLAGS CLEAR. 



COHPARE TRAP AOORESS TO 1ST 

AND LAST ROUTINE ADDRESSES. 
SKIP IF MATCH 



ADO 1 FOR BUSY RETURN 
EXIT RFOM BUSY CHECK 



SYSTEM INTERRUPTION ERROR REPORT 



SAVE ERROR CODE 

STOPX A3 INFO 
MAS STOPX-MSG-SMMERR BUSY 
NOT BUSY RETURN 
BUSY RETURNS MITH Q POINTING TO 

BUSY ROUTINE 
ROUTINE FOUND BUSY, INTERJECT 

THIS MESSAGE AFTER ROUTINE FINI 
SAVE APPROPRIATE RTA 



PLUG RTA CELL MITH REPORTER ADR. 
RETURN TO INTERRUPTED ROUTINE. 

NO MSG INTERRUPTION 

REPORT AND EXIT INT STATE. 
INTERRUPTED MESSAGE COMPLETE. 
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0620 


0258 


5428 


1 


RTJ- 


ISHERROR) 


REPORT ERROR. 


0821 


0259 


68EC 




STA» 


REPORT «A=0! 


FLAG REPORTER NOT BUSY. 


0822 . 


025A 


1400 




JMP- 


(0) 


RETURN TO ORIGINAL HESSAGE USER. 


0823 


025B 


0000 


RPTRTN 


NUM 







0825 


025C 


0269 


RTNSHR 


AOC 


SHKERRS-1 


ROUTINE 


0826 


0250 


03E7 


RTNSTP 


ADC 


STQPX-1 


ENTRY 


0827 


025E 


0521 


RTNHSG 


AOC 


HESSAGE-1 


ADDRESSES. 


0828 


Q25F 


0000 


FLGSHR 


NUH 





ROUTINE 


0829 


0260 


0000 


FLGSTP 


NUH 





ACTIVE 


0830 


0261 


0000 


FLGMSG 


NUH 





FLAGS. 


0831 


0262 


G268 


ADR1 


ADC 


SHKSRRS+1 


ROUTINE ADDRESSES 


0832 


0263 


0014 


A0R2 


ADC 


ENOSHR-SHMERRS-1 


NOT REFLECTING BUSY CONDITION. 


0833 


0264 


0658 


A0R3 


ADC 


PRESTP-1+ENOSHR 


PTC2 


0834 


0265 


0079 


A0R4 


AOC 


ENDSTP-PRESTP-1 


PTC2 


0835 


0266 


oocc 


ADR5 


AOC 


HESSAGE+1-ENDSTP 




0636 


0267 


0053 


A0R6 


ADC 


ENDHESS-HESSAGE-1 




0837 


0268 


0000 


ENTA 


NUH 





ERROR CODE 


0838 


0269 


0000 


ENTQ 


NUH 





ERROR INFO 


0840 






*9V«?«V»«««««««9«9f«f«»»*««***«>V*fVV«9*9eOV9««9VVf«*V«*«V«V?*ff»»f*990« 


08 41 






* 








0842 






* 




PROCESS 


HONITOR ERRORS 


0843 






9 








0844 






V»*V«««««*?***«*9««««««*#««««*»V«VO*«««*»9**»*»««»«««9*«««9«««*«9*«9«««« 


0846 


026A 


0000 


SHMERRS 


NUH 





SHH ERROR ROUTINE 


0847 


0268 


D8F3 




RAO* 


FLGSHR 


FLAG BUSY TO INT ERROR REPORTER. 


0848 


026C 


680E 




S1A* 


SHERCO 


A» ERROR COOE 


0849 


0260 


C8FC 




LDA* 


SHKERRS 




0850 


026E 


680D 




STA» 


SHERRTA 




0851 


026F 


0A08 




ENA 


S8 




0852 


0270 


01^4 




SQZ 


SMERl-»-l 


EXTRA INFO- CQZERO = NOl 


0853 


0271 


480B 




STQ* 


SHERQ 


YES. Q CONTAINS 3R0 AREG. 


0854 


0272 


EQFF 




LDQ- 


I 


I CONTAINS 3R0 QREG. 


0855 


0273 


480A 




STQ» 


SHERQ+1 




0856 


0274 


0910 




INA 


$10 


INCREASE STOP COUNT. 


0857 


0275 


6804 


SMER1 


STA» 


SMERID 




0858 


0276 


0844 




CLR 


A 




0659 


0277 


5402 




RTJ- 


CSTOP) 




0860 


0278 


1806 




JHP» 


ENDSHR-1 




0861 


0279 


0008 


SMERID 


NUH 


S0008 


STOP ID 


0862 


027A 


0000 


SMERCD 


NUH 


80 


ERROR COOE 


0863 


0278 


0000 


SHERRTA 


NUH 





REPORTED RETURN ADORESS. 


0864 


027C 


0000 


SMERQ 


NUH 


$0 


EXTRA ERROR INFORHATION 


0865 


027D 


0000 




NUH 


$0 




0866 


027E 


68E0 




STA* 


FLGSHR 


CLR BZY FLAG. 


0867 


027F 


IDEA 


ENOSHR 


JHP» 


(SHHERR) 


EXIT ROUTINE. 


0869 


0280 


0000 


HAINL 


NUH 







0870 


0281 


6050 




STA- 


HISWX 


FORCE PARAH STOP NEXT JUHPX CALL 


0871 


0282 


1CFD 




JHP» 


(HAINL) 


RETURN 
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0873 
087* 
0875 
0876 
0877 
0878 
0879 
0880 
0881 
0882 
0883 
088* 



0283 0000 FCLRINT NUM 

028* 1CFE JMP* (FCLRINT) 

^.* 9 ************* ********************************************* *********** 

* 

* REQUEST INTERRUPT CALL 
» PROCESSOR PACKAGE 

* ENTER WITH A a INTERRUPT LINE 

• Q = EQUIPMENT AODR 

» CALL+1 = INTERRUPT ROUTINE ENTRY 

♦ CHECK FOR 2 TESTS REQUESTING THIS LINE ♦ 
* 

^^***^**** 9 * m ******** ************************************ *************** 



0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
089* 
0895 
0896 
0897 
0898 
0899 
0900 
0901 

0902 
0903 
090* 
0905 
0906 
0907 

0908 
0909 
0910 
0911 
0912 
Q913 
091* 
0915 
8916 
0917 
0916 
0919 
0920 



0285 
0286 
0287 
0288 
0289 
028A 
0288 
028C 
028D 
028E 
028F 
0290 
0291 
0292 
0293 
029* 
0295 
0296 
0297 
0298 
0299 
029A 
029B 
029C 
0290 
029E 
029F 
02AO 
02A1 
02A2 
02A3 
02A* 
02A5 
02A6 
02A7 
02A8 
02A9 



0000 
*0BB 
OCOF 
0133 
0FC1 
OOFE 
18FC 
081* 
0FC2 
8000 
0103 
60BO 
OOFE 
015B 
OCFB 
C600 
01F2 
90BB 
0103 
01*5 
0001 
18F9 
FOOO 
01F6 
*0BD 
E091 
*0FF 
C2A5 
E*80 
01*6 
5*0C 
0138 
C1A6 
0102 
5*0 C 
012* 
CCOB 



REQINT 
REQIN2 

REQIN3 



REQIN* 
XLVOADR 

REQIN5 



REQIN6 
REQIN7 



REQIN8 



NUH 
STQ- 
ENQ 
SAM 
ALS 
INQ 
JMP» 
TRQ 
ALS 
ADD- 
AOC 
STA- 
INS. 
SQN 
ENQ 
LOA+ 

SUB- 

SA2 

SQZ 

INQ 

JNP» 

AOQ 

STQ- 

LDQ- 

STQ- 

LDA- 

LOQ- 

SQZ 

RTJ- 

SAM 

LDA- 

SAZ 

RTJ- 

SAP 

LDA» 





BO 

15 

REQIN*-»-l 

1 

-1 

REQIN3 

A 

2 



LVOADR 

62 

-1 

REQIN7-»-i 

-* 

SLSPIO** f Q 

BO 

REQIN6-»-l 

REQIN7-»-l 

1 

REQIN5 

= XSLSPAD+* 

B2 

TSACTV 

I 

TSIAAD-i,Q 

(82) 

REQIN8-'-! 

(RELPOS) 

REQIN9-»-i 

TSIAAOtI 

REQIN8-»-l 

(RELPOS) 

REQIN9-»-l 

(REQINT) 



REQUEST INTERRUPT 

SAVE REQUESTORS EQUIPMENT ADR. 

FIND THE ADDRESS IN WHICH TO 
STORE THE REQUEST ROUTINE AODRES 



1 MULTIPLY DECIMAL LINE NO. BY *) 

(ADDRESS INTO WHICH THE 
REQUESTING INTERRUPT ROUTINEXS 
ENTRY ADDRESS WILL BE STORED) 
REQUEST IS FOR INT LINE 1. 
FIND OUT IF STATION IN 

THE SLOW SPEED PACKAGE IS 
REQUESTING THIS INTERRUPT 
STATIONS FOUND 
NOT YET 

STATION HAS BEEN FOUND MOVE ITS 

ADDRESS TO POINTER. 

CHECK AGAINST DUAL TEST REQ1S. 
GET PREVIOUS PROCESSOR ADDRESS. 
SKIP IF LINE IS FREE. 

SKIP IF PREV REQ NOT SAME TEST. 

SKIP * REQfNG TEST LAST IN LIST. 

SKIP = PREV REQ NOT SAME TEST. 
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DATEf 12/17/7% 



09?1 


02AA 6<»80 


STA- 


(B2I 


0922 


02AQ 08D9 


RAO* 


REQINT 


0923 


. 02AC 1C08 


JMP» 


(REQINT) 


092% 


02AO 4QFF REQIN9 STQ- 


I 


0925 


02AE QA05 


ENA 


ILBZY 


0926 


02AF E091 


LDQ- 


TSACTV 


0927 


02B0 E2A5 


LOQ- 


TSIAAD-*1,Q 


0928 


02B1 5%28 


RTJ- 


(SHERROR) 


0929 


02B2 Si»03 


RTJ- 


(S70P+1I »EXIT 


0930 


0283 18FE 


JMP» 


»-l 



SATISFY REQUEST. 

EXIT TC CALLER. 

(ERROR STOP Q3 = PREV PROC AOR) 

IERROR CODE) 

(ERROR STOP A3 = REQUESTOR IS IA) 
REPORT ERROR. 

DROP TEST FROM LIST. IMC-RESTART 
FROM REQtR IA AT ERROR STOP OK> 



0932 
0933 
093% 
0935 
0936 
0937 
0938 
0939 
0940 
09 %1 
09%2 



* » 

* BUILO TEST EXECUTION LIST ♦ 

* » 

» A=XXYY, Q=EQUIPMENT ADDRESS, FOR TEST LOAD. » 

* WHERE XX=TEST NUMBER, YY«TEST RERUN COUNT. » 
» A=FFQ0, Q=LOAD ADDRESS, TO SELECT IA OF NEXT TEST ENTRY. * 

* A=0001 TO TERMINATE LOAD STRING WITHIN LIST. * 

* A=0000 TO TERMINATE TEST LIST. * 

» . • • » 



094% 
Q9%5 
Q9%6 
Q9%7 
09*8 
0949 
0950 
0951 
0952 
0953 
095% 
0955 
0956 
0957 
0958 
0959 
0960 
0961 

0962 
0963 
096% 
0965 
0966 
0967 



02B% 
02B5 
02B6 
02B7 
02B8 
02B9 
028A 
OZBB 
02BC 
02BD 
02BE 
02BF 
02C0 
02C1 
D2C2 
02C3 
02C% 
02C5 
02C6 
02C7 
02C8 
02C9 
02CA 
02CB 
02CC 



C0%9 
A082 
60%9 
0A00 
68A6 
68A6 
68A6 
5%06 
OBOO 
0%00 
C08F 
010% 
C056 
A072 
0111 
1810 
5%0F 
C000 
07%7 
0C09 
5%08 
08%% 
608F 
6090 
60FF 



MCINIT LDA- 
ANO- 
STA- 

BUILDTL ENA 
STA» 
STA» 
STA» 
RTJ- 
NOP 
EIN 
LOA- 
SAZ 

SMSTART LDA- 
AND- 
SAN 
JMP* 
RTJ- 
LDA 

ENQ 

RTJ- 

CLR 

STA- 

STA- 

STA- 



TSLIS1 



INFORM 
HFFOO 
INFORM 


FLGSMR 
FLGSTP 
FLGMSG 
(JUMP) 



TSSEL 

TSLISi-*->l 
SMMCNT 
BIT07 

TSLISl-»-l 
INITA 
(MONPP) 
= XTYPBTL 



(TYPEOUT) 

A 

TSSEL 

TSINIT 

I 



CLEAR 



SOFTWARE BUSY PTC2 

SWITCHES PTC2 



CLEAR 



REPORTING ROUTINE 



BUSY FLAGS 



CHECK THE SKIP SWITCH 



(SETMASK ENTRY PRIOR TO ENABLE! 

TEST LIST EMPTY 

AZERO - YES. BUILD TEST LIST. 



IS BIT 7 OF SMM PARAMETER SET 

NO EXECUTE PRESTORED LIST 
RESET MONITOR PROTECT PATTERPTC2 

PTC2 



PTC2 



TYPEOUT- BUILD TEST LIST 



CLEAR NUMBER OF TESTS SELECTED 
NUMBER OF TESTS LOADED 
CLEAR I 
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DATES 12/17/7* 



0968 


02CD 61A6 


CLRIA 


STA- 


TSIAAD.I 


0969 


02CE C192 


7SLIS2 


LDA- 


TSFREQ.I 


0970 


02CF E19C 




LOQ- 


TSEQAD 9 I 


0971 


0200 5*0E 




RTJ- 


(INPTTY) 


0972 


02O1 8082 


TSLIS3 


EOR- 


HFFOO 


0973 


0202 0112 




SAM 


TSLIS*-»-l 


097* 


0203 *1A6 




STQ- 


TSIAAD.I 


0975 


02O<» 18F9 




JMP» 


TSUS2 


0976 


0205 B082 


TSLIS* 


EOR- 


HFFOO 


0977 


0206 6192 




STA- 


TSFREQtl 


0978 


0207 0108 




SAZ 


INITA-»-l 


0979 


02O8 *19C 




STQ- 


TSEQAO v I 


0980 


0209 D08F 


INITAC 


RAO- 


TSSEL 


0981 


020A OAOA 




ENA 


10 


0982 


02DB 808F 




EOR- 


TSSEL 


0983 


02DC 0103 




SAZ 


INITA-»-l 


098V 


02OD 08** 




CLR 


A 


0985 


020E DOFF 




RAO- 


I 


0986 


02DF 18E0 




JMP» 


CLRIA 



CLEAR LOAO ADDRESS ENTRY. 

PRESENT FREQ. AND TEST NUMBER 

PRESENT EQUIPMENT NUMBER 

OISPLAY ENTRY VIA A/Q OR TTY. 

SELECT IA OPERATION 

A ZERO » YES 

STORE IA FOR NEXT TEST ENTRY, 

RESTORE ENTRY. 

AZERO a TERMINATE TEST LIST. 

INCREMENT NO. OF TESTS SELECTED 

OETERMINE IF LIST IS FULL- 
AZERO - YES. EXECUTE LIST. 
TABLE IS NOT FULL. 



0988 



CHECK MUTUALLY EXCLUSIVE TESTS- MY1.2,MEM,RPT » 



0990 


02E0 


0C01 INITA ENQ 


1 


0991 


02E1 


*OFF 


STQ- 


I 


0992 


02E2 


08*2 


CLR 


Q 


0993 


02E3 


C191 INITA1 LDA- 


TSFREQ-1,1 


099* 


OZE* 


0F*8 


ARS 


8 


0995 


02E5 


09FD 


INA 


-2 


0996 


02E6 


0113 


SAN 


3 


0997 


02E7 


01*1 


SQZ 


1 


0990 


02E8 


1816 


JHP* 


INITA2 


0999 


02E9 


EOFF 


LDQ- 


I 


1000 


02EA 


09F8 


INA 


-7 


1001 


02EB 


0113 


SAN 


3 


1002 


02EC 


01*1 


SQZ 


1 


1003 


02ED 


1811 


JMP» 


INITA2 


1004 


02EE 


EOFF 


LDQ- 


I 


1005 


02EF 


09F6 


INA 


-9 


1006 


02F0 


0113 


SAN 


3 


1007 


02F1 


01*1 


SQZ 


1 


1008 


02F2 


180C 


JMP» 


INITA2 


1009 


02F3 


EOFF 


LDQ- 


I 


1010 


02F* 


09FD 


INA 


-2 


1011 


02F5 


0113 


SAN 


3 


1012 


02F6 


01*1 


SQZ 


1 


1013 


02F7 


1807 


JMP* 


INITA2 


101* 


02F8 


EOFF 


LDQ- 


I 


1015 


02F9 


OOFF 


RAO- 


I 


1016 


02FA 


OAOA 


ENA 


10 



GET TEST FROM LIST 



CK FOR MY1 « 

NO 

YES, CK FLAG 

THIS IS 2N0 

THIS IS 1ST 

CK FOR RPT ( 

NO 

YES-CK FLAG 

THIS IS 2N0 

THIS IS 1ST 

CK FOR MY2 I 

NO 

YES-CK FLAG 

THIS IS 2N0 

THIS IS 1ST 

CK FOR MEM 1 

NO 

YES-CK FLAG 

THIS IS 2N0 

THIS IS 1ST 

UPDATE LIST 



02) 

IF SECOND TEST 
TEST-SO ERROR 
TEST-SAVE I IN Q 
09) 

IF THIS 2ND TEST 
TEST-SO ERROR 
TEST-SAVE I AS FLAG 
12) 

IF SECOND TEST 
TEST-SO ERROR 
TEST-SAVE I AS FLAG 
1*> 

IS THIS IS 2ND TEST 
TEST-SO ERROR 
TEST-SAVE I AS FLA6 
INDEX 
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1017 


02FB 


BOFF 




EOR- 


I 


1018 


02FC 


010C 




SAZ 


INITA3-»-l 


1019 


02FO 


18E5 




JMP» 


INITA1 


1020 


02FE 


C291 


INITA2 


LDA- 


TSFREQ-1,Q 


1021 


02FF 


A082 




ANO- 


HFFOO 


1022 


0300 


0822 




TRA 


Q 


1023 


0301 


C191 




LDA- 


TSFREQ-1,1 


1024 


0302 


0F48 




ARS 


8 


1025 


0303 


0872 




EAQ 


Q 


1026 


0304 


0844 




CLR 


A 


1027 


0305 


60FF 




STA- 


I 


1026 


0306 


0A21 




ENA 


$21 


1029 


0307 


5426 




RTJ- 


(SMERRORI 


1030 


0308 


147B 




JNP- 


CHOOOOI 


1031 


0309 


0842 


INITA3 


CLR 


Q 


1032 


030A 


OAEF 




ENA 


-16 


1033 


030B 


60BC 




STA- 


Bl 


1034 


030C 


0844 


INITAA 


CLR 


A 


1035 


0300 
030E 


6E00 
FF80 




STA 


(XLVOADR)tQ 


1036 


030F 


0DQ4 




INQ 


4 


1037 


0310 


OOBC 




RAO- 


Bl 


1038 


0311 


COBC 




LOA- 


Bl 


1039 


0312 


0101 




SAZ 


1 


1040 


0313 


18F8 




JHP» 


INITAA 


1041 


0314 


E056 




LDQ- 


SHKCNT 


1042 


0315 


0FA7 




QLS 


7 


1043 


0316 


0161 




SQP 


1 


1044 


0317 


6420 




STA- 


tAQINST) 


1045 


0318 


OCFB 




ENQ 


-4 


1046 


0319 
031A 


6600 
01F6 


INITAB 


STA+ 


SLSPA0*4,Q 


1047 


031B 


OOOi 




INQ 


1 


1048 


031C 


0141 




SQZ 


1 


1049 


0310 


18F8 




JMP* 


INITAB 


1050 


031E 


4002 




STQ- 


02 


1051 


031F 


C090 




LOA- 


TSINIT 


1052 


0320 


0108 




SAZ 


EXECTL-»-l 


1053 


0321 


0822 


TRANSFR 


TRA 


Q 


1054 


0322 


E2A5 




LOQ- 


TSIAAD-l.Q 


1055 


0323 


<i205 




STQ- 


MUXRTA,Q 


1056 


0324 


09FE 




INA 


-1 


1057 


0325 


6091 




STA- 


TSACTV 


10 58 


0326 


0101 




SAZ 


IXTl-*-l 


10 59 


0327 


18F9 




JMP* 


TRANSFR 


1060 


0328 


1810 


IXT1 


JHP* 


INITIO 


1061 






• IF MASTER CLEAR/TEST RESTAR' 


1062 






» SEQUENCE MAY 


NOT OCCUR IF Al 


1063 






♦ EXITED, SINCE THESE ARE NOT 


1065 


0329 


C044 


EXECTL 


LDA- 


LA ST VALUE 


1066 


032 A 


6045 




STA- 


LASTAO 



DATE* 12/17/74 

CHECK FOR END OF LIST 
CK NEST TEST IN THE LIST 

GET 2N0 TEST ID FOR MSG 

COMBINE 1ST AND 2ND TEST IDS 



ERROR CODE 
REPORT ERROR $21 
START OVER AGAIN 



CLEAR ALL INTERRUPT LINE REQUEST 
BY STORING ZERO IN THE AOORESS 



FOR EACH LINE REQUEST 



CHECK FOR MBS SELECTION 

SKIP IF NOT SELECTED 

CLEAR MBS INT STACKER 

TEST 

CLEAR THE INTERRUPT RESERVATION. 



REQUESTS FOR THE SLOW 
PACKAGE 



SPEED 



CLEAR LOCATION 02 FOR THE 1716. 
TSINIT ZERO* 1ST SHN ENTRY OR BTL 
OTHERWISE, PREPARE CONTROL TO 
RESTART ALL TESTS NOH IN CORE. 
LOAD TEST IA 
STORE IA AT TEST ADORESS FOR RTA 



BEGIN NUXING AT 1ST LIST ENTRY 



RESET LOAD ADORESS. 
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DATE* 12/17/7* 



1068 
1089 
1070 
1071 
1072 
1073 

1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
108* 

1085 
1086 

1087 

1088 
1089 
1090 
1091 
1092 
1093 
109* 
1095 
1096 
1097 
1098 

1099 
1100 
1101 
1102 
1103 
110* 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
111* 
1115 
1116 



*********** ************************************************** *********** 

* • 

♦ - EXECUTE TEST LIST - » 

• PREPARES 81 FOR LOAD CONTROL » 

* ' * 
v* ************************************************* ********************* 



0328 
032C 
0320 
032E 
032F 
0330 
0331 
0332 
0333 
033* 
0335 
0336 
0337 
0338 
0339 
033A 
0338 
033C 
0330 
033E 
033F 
03*0 
03*1 
03*2 
03*3 
03** 
03*5 
03*6 
03*7 
03*8 
03*9 
03*A 
03*8 
03*C 
03*D 
03*E 
03*F 
0350 
0351 
0352 
0353 
035* 
0355 
0356 
0357 
0358 



CQ8F 
8090 
0101 
181C 
6091 
E056 
OFA* 
0171 
1815 
E000 
056E 
*025 
COOO 
0750 
EOOO 
0012 
5*C5 
08*6 
5*0E 
0109 
60FF 
*57B 
0901 
DOFF 
E57B 
18F8 
EOOO 
028* 
*025 
5*08 
5*01 
E090 
*OFF 
E1A6 
01*1 
*0*5 
C192 
OF* 8 
Oil* 
E090 
0151 
18*7 
1809 
A081 
60BC 
C056 



INIT1 



I NIT 1 A 



INITIO 



INITIO 

INIT1B 

INIT2 

INIT* 

INIT*0 



INIT*E 
INITF 

INITC 



LDA- 

EOR- 

SAZ 

JHP» 

STA- 

LOQ- 

QLS 

SQM 

JNP« 

LDQ 

STQ- 
LDA 

LDQ 

RTJ- 

CLR 

RTJ- 

SAZ 

S7A- 

STQ- 

INA 

RAO- 

LOQ- 

JMP» 

LOQ 

STQ- 

RTJ- 

RTJ- 

LOQ- 

STQ- 

LDQ- 

SQZ 

STQ- 

LDA- 

ARS 

SAN 

LDQ- 

SQN 

JNP* 

JHP* 

AND- 

STA- 

LDA- 



TSSEL 

TSINIT 

INIT1A 

INIT2 

TSACTV 

SMNCNT 

* 

1 

INIT1B 

SXHESSA3 

INTX 
eXPREEXS 

sXPREEXD-PREEXS+1 

ITTOTTI) 

A,Q 

CINPTTY) 

INIT1B 

I 

tH0QOO),I 

1 

I 

(H0O00)*I 

INIT1D 

sXHCINIT 

INTX 

(TYPEOUT) 

(CONTROL) 

TSINIT 

I 

TSIAAD.I 

INIT*D-*-l 

LASTAD 

TSFREQ,I 

8 

INITF-»-l 

TSINIT 

INIT*E-*-l 

EXITC 

INIT1A 

HO OFF 

Bl 

SMMCNT 



NUNBER OF TESTS TO BE LOADED 
NUMBER OF TESTS LOADED 



RESET CONTROL POINTER 

CHECK SMM PARAM- 

CHECK PRE-EXECUTION TEST HOD. 



ELSE PREPARE FOR POST-LOAO. 

PRE-EXECUTION TEST MODIFICATION. 
START OF MSG FOR CHANGES 

LENGTH OF MSG 

MSG TO OPERATOR 
ZERO REGS FOR 1ST DISPLAY 
STOP OR TTY INPUT FOR CHANGE 
SKIP OUT TO TERMINATE 

UPDATE CORE WITH NEW WORD 
FOR POSSIBLE NEXT CHANGE 
UPDATE ADORESS 
GET NEXT CELL FOR NEXT DISPLAY 



FORMAT TEST HEADINGS (A = ZERO) 
ALL TESTS HAVE BEEN INITIALIZED. 



IS THERE AN IA TABLE ENTRY3 

QZERO > NO. 

YES. USE ENTRY FOR LOAD ADDRESS. 

POSITION TEST NUHBER. 

A=0 = LOAD STRING TERMINATOR 
TERMINATOR FIRST ENTRY 
QZERO = YES. 

MOVE TABLE UP ONE ENTRY. 
RUN LOADED TESTS. 

STORE TEST NUMBER. 
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1117 


0359 A06F 




ANO- 


BIT04 


1118 


035A 0107 




SAZ 


INITD-»-l 


1119 


035B C045 




LDA- 


LASTAD 


1120 


035C A081 




AND- 


HO OFF 


1121 


035D 0104 




SAZ 


INITD-»-l 


1122 


035E C045 




LDA- 


LASTAD 


1123 


035F A082 


* 


AND- 


HFFOO 


1124 


0360 8073 




ADD- 


BIT08 


1125 


0361 6045 




STA- 


LASTAD 


1126 


0362 C045 


INITO 


LOA- 


LASTAD 


1127 


0363 61A6 




STA- 


TSIAAD.I 


1128 


0364 542C 




RTJ- 


(PRGLOAD) 


1129 


0365 EQ90 




LDQ- 


TSINIT 


1130 


0366 0136 




SAM 


INITB-*-l 


1131 


0367 09EF 




INA 


-NOMOCOR 


1132 


0368 0113 




SAN -, 


INIT9A-»-l 


1133 


0369 0142 




SQZ 


INIT9A-»-l 


113k 


036A 62A6 




STA- 


TSIAADfQ 


1135 


036B 18C3 




JHP* 


INIT1A 


1136 


036C 182F 


INIT9A 


JMP* 


EXITC 


1137 


0360 C29C 


INITB 


LOA- 


TSEQAD,Q 


1138 


036E D090 




RAO- 


TSINIT 


1139 


036F E2A6 




LDQ- 


TSIAAD,Q 


1140 : 


0370 0101 




SAZ 


1 


1141 


0371 6206 




STA- 


TESTEQ,Q 


1142 


0372 C4QQ 

0373 0696 




LOA+ 


RBO004 


11»» 3 


0374 0113 




SAN 


BIASED-»-l 


1144 


0375 C205 




LOA- 


HUXRTAtQ 


1145 


0376 0834 




AAQ 


A 


1146 


0377 6205 




STA- 


HUXRTAtQ 


1147 


0378 0A30 


BIASED 


ENA 


S30 


1148 


0379 A202 




AND- 


NAME+1,Q 


1149 


037A 0111 




SAN 


INIT5-»-l 


1150 


037B 18B4 




JMP» 


INIT1A+1 


1151 


037C 0091 


INIT5 


RAO- 


TSACTV 


1152 


0370 18A0 




JMP» 


INIT1 



DATEI 12/17/74 



LOAD AT EVEN ONE HUNDREDS IF SET 



SKIP IF ADR ALREADY EVEN 100 



0100 



STORE INITIAL ADDRESS IN TABLE. 
GO LOAO TEST 

(AREG) -TERMINATE FLAG ON RETURN. 
APOS = COOE OF TERHINAL ERROR. 
AZERO = LACK OF AVAILABLE LOAO 
CORE. IF NOT 1ST LOAD OF STRING, 
RESET LOAO ADDRESS TO ZERO* 
RUN TESTS NOW IN CORE AND RETRY. 
OTHERWISE, DELETE LIST ENTRY. 



(DONT PASS ZERO ADDRESS) 

PASS EQUIPMENT ADDRESS TO TEST. 

MUXRTA BIASED BY LOADER- 

AZERO = NO. 

(RBO004 = ZERO IF NEGATE 

BY NAN CARO COL. 64) 
BIAS RTA FOR CONTROL ENTRY. 
CHECK 4TH CHARACTER OF NAME 

FOR RUN-ALONE TESTS. 
AZERO » RUN-ALONE. GO TO CONTROL 

WITH TSACTV ■ TSINIT+1 
tTHIS MAKES TSACTV = TSINIT) 



1154 
1155 
1156 
1157 
1158 
1159 



***««««*««*«««««*»**• «4Ht ********************** »***«***«*«»*«** »»»*•»»»»» 

• CONTROL ROUTINE 

• FOR MULTIPLEXING TESTS 

♦ 



1161 037E 0000 CONTRO NUM * 

1162 037F C042 LDA- SETMASK 

1163 0380 0821 TRA M 

1164 0381 0400 EIN 

1165 0382 0A00 ENA 



RESET MASK. 

INSURE INTERRUPTS ENABLED. 
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DATE* 12/17/74 



1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
117% 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 



0383 
0384 
0385 
0386 
0367 
0388 
0389 
038A 
0338 
038C 
0380 
038E 
038F 
0390 



5406 
OBOO 
C091 
9090 
0131 
6091 
DQ91 
E091 
C2AF 
6043 
E2A5 
0141 
E205 
167B 



C0NTR7 



C0NTR1 
C0NTR3 



RTJ- 

NOP 

LDA- 

SUB- 

SAH 

STA- 

RAO- 

LOQ- 

LDA- 

STA- 

LDQ- 

SQZ 

LDQ- 

JMP- 



(JUMP1 



TSACTV 

TSINIT 

CONTRl-»-l 

TSACTV 

TSACTV 

TSACTV 

TSTJP-itQ 

STJP 

TSIAAD-1,Q 

1 

HUXRTAtQ 

<H0000),Q 



CHECK SKIP SWITCH 

LAST TEST TO WHICH CONTROL WAS 

GIVEN 

END OF TEST LIST 

START AT TOP OF LIST 



PREPARE STJP TO CONTAIN 

INOIVIDUAL STOP/JUMP PARAM. 

CMC-RESTART IF NO BTL ENTRY) 
IA+MUXFTA CONTAINS RETURN ADD, 



♦ 

* CHECK IF ALL PASSES ARE COMPLETE 

* IF THEYARE, CLEAR ALL ENTRIES IN THE TABLES 

* ENTER WITH A= INITIAL ADDR OF TEST 

* 



1188 0391 0000 EXIT NUH 

1189 0392 E091 LOQ- TSACTV 

1190 0393 C291 LDA- TSFREQ-itQ 

1191 0394 09FE INA -1 

1192 0395 6291 ST A- TSFREQ-itQ 

1193 0396 A081 AND- HOOFF 

1194 0397 0101 SAZ EXITB-*-! 

1195 0398 1CF8 JMP» CEXIT) 

1196 0399 QDFE EXITS INQ -1 

1197 039A 4091 STQ- TSACTV 

1198 039B C2B1 EXITC LDA- TSTJP+i f Q 

1199 039C 62B0 STA- TSTJP,Q 

1200 039D 0OF6 INQ TSFREQ-TSEQAD+1 

1201 039E 0149 SQZ EXITD-»-l 

1202 039F 0009 INQ TSEQAD-TSFREQ-1 
1Z03 03A0 C2A7 . LDA- TSIAAD*1,Q 

1204 03A1 62A6 STA- TSIAAD.Q 

1205 03A2 C29D LDA- TSEQAO+i,Q 

1206 03A3 629C STA- TSEQADtQ 

1207 03A4 C293 LDA- TSFREQ«-l t Q 

1208 03A5 6292 STA- TSFREQ.Q 

1209 03A6 0O01 INQ 1 

1210 03A7 18F3 JNP* EXITC 

1211 03A8 409B EXITD STQ- TSEQAD-1 

1212 03A9 40A5 STQ- TSIAAD-1 

1213 03AA 40AF STQ- TSTJP-1 

1214 03AB CQBF LDA- TSSEL 

1215 03AC 09FE INA -1 

1216 03AD 608F STA- TSSEL 

1217 03AE E090 LDQ- TSINIT 



TEST PASS COMPLETION ROUTINE. 



REDUCE TESTS FREQUENCY NUMBER. 

SKIP = DELETE TEST FROM LIST. 
REPEAT TEST. 

MAINTAIN MULTIPLEX ORDER. 



(NEGATIVE TERMINAL VALUE FOR Q) 



MOVE ENTRY IN TABLE UP ONE PLACE 
GO BACK AND MOVE NEXT ENTRY 
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SMM000 



1218 


03AF 


0141 


1219 


0380 


0OFE 


1220 


03B1 


4090 


1221 


03B2 


(1154 


1222 


0383 


0111 


1223 


03B4 


0C£3 


1224 


0385 


1600 




0386 


02E0 


1225 


0387 


5401 



EXITG 



EE 



PAGE 


27 


SQZ 


1 


INQ 


-1 


STQ- 


TSINIT 


SQN 


EE-»-i 


SAN 


EXITG-»-l 


ENQ 


TSLIS1-INITA 


JHP* 


INXTA«Q 


RTJ- 


CCONTROL) 



DATEI 12/17/74 



Q2ER0 s INIT4 JMP TO EXITC 



OTHER TESTS IN CORE- 

QZERO = NO. TEST LIST EHPTY- 

GO BUILD TEST LIST. 

OR CONTINUE LOAOING FROH LIST* 

CONTINUE HUXING TESTS IN CORE. 



1227 




****«««* 


99*9** 


****** ********* ** 


**4 


i****««*««**« ************************** 


1228 




* 




CONVERTS THE 


CONTENTS A IHEX) TO ASCII CODE 


1229 




* 




EXIT WITH Q 


EQUAL TO THE UPPER THO CHARACTER AND 


1230 




» 




A EQUAL TO THE 


LOWER THO CHARACTER 


1231 




* 




USES BO 


TRANSIENTLY. * 


1232 




**V»***»***«»V*«*f*f*****f*»*****f»*V***f»V*M**»***Vf****M»*ff***«***» 


1233 


03B8 0000 


CON A SO 


NUN 







»*♦ HEX TO ASCII CONVERSION »»» 


1234 


0389 0842 




CLR 


Q 






1235 


03BA 4819 




STQ» 


CONV04 






1236 


03BB 0FC4 


CONV00 


ALS 


4 






1237 


03BC 6031 




STA- 


HEXHORD 




PTC2 


1238 


03BO OCOF 




ENQ 


$F 






1239 


03BE 08B6 




LAQ 


A.Q 




HASK OFF HEX DIGIT. 


1240 


03BF 0DF5 




INQ 


-$A 






1241 


03C0 0172 




SQM 


CQNV01-»-i 




QNEG = THRU 9, ADD $30. 


1242 


03C1 0011 




INQ 


$11 




QPOS = A THRU F, ADD $41 


1243 


03C2 0814 




TRQ 


A 




TO THE DIFFERENCE. 


1244 


03C3 0930 


CONV01 


INA 


$30 






1245 


03C4 E80F 




LDQ» 


CONV04 






1246 


03G5 OFAF 




QLS 


15 






1247 


03C6 0173 




SQH 


C0NVQ2-»-i 




CHECK CHARACTER POSITION- 


1248 


03C7 0FC8 




ALS 


8 




COUNT EVEN = UPPER. 


1249 


83C8 6232 




STA- 


ASCHD,Q 




PTC2 


1250 


03C9 1805 




JMP» 


CONV03 






1251 


03CA F087 


C0NVQ2 


ADQ- 


H7FFF 




COUNT ODD = LOWER. 


1252 


03CB 8232 




AOO- 


ASCWD,Q 




Q = FOR 1ST WD, Q=l FOR 2NPTC2 


1253 


03CC 6232 




STA- 


ASCHD,Q 




PTC2 


1254 


03CO 0153 




SON 


ENDCNV-*-l 




SKIP OUT ON SECOND WORO. 


1255 


03CE O805 


CONV03 


RAO* 


CONV04 




BUHB INDEX 


1256 


03CF C031 




LDA- 


HEXWORD 




PTC2 


1257 


0300 18EA 




JMP» 


CONVOO 






1258 


03O1 £032 


ENOCNV 


LDQ- 


ASCHO 




PTC2 


1259 


03O2 1CE5 




JMP» 


CCCNASC) 




EXIT ROUTINE. 


1260 


0303 0000 


CONV04 


NUH 







INDEX 


1262 




«« V «««**««<1 *****»**-«««****** ****************** ****««******«*« ******»»**» 


1263 




* 




OUAL BANK RELATIVE 


CORE POSITION TEST » 


1264 




* 




EXIT WITH A- 


NEC 


1 IF A GREATER THAN Q ON ENTRY » 
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1265 




» 




1266 




* 




1267 




«**«»«*« **«e«. 


1268 


03OV 0000 


AQPOS 


NUM 


1269 


0305 0133 




SAM 


1270 


0306 0163 




SQP 


1271 


03D7 0A01 




ENA 


1272 


03O8 180V 




JMP* 


1273 


0309 0162 


RP1 


SQP 


127V 


03DA 086V 


RP2 


TCA 


1275 


030B 083V 




AAQ 


1276 


030C 1CF7 


RP3 


JMP* 


1277 




v*««««**»e«v«' 


1278 




* 




1279 




* 




1280 




* 




1281 




««««#»e««e»**j 


1283 


03DD 0000 


PRESTP 


NUM 


128V 


030E 0800 
03DF FE80 




RAO 


1285 


03E0 5800 
03E1 FC6A 




RTJ 


1286 


03E2 OBOO 




NOP 


1287 


03E3 C8F9 




LDA* 


1268 


03EV 680V 




STA* 


1289 


03E5 C800 
03E6 FC71 




LOA 


1290 


03E7 1802 




JMP* 


1292 


03E8 0000 


STOPX 


NUM 


1293 


03E9 5800 
03EA 01C0 




RTJ 


129V 


03EB EOFF 




LOQ- 


1295 


03EC V86F 




STQ* 


1296 


03ED 687V 




STA* 


1297 


03EE C800 
03EF FC5V 




LDA 


1298 


03F0 E8F7 




LDQ* 


1299 


03F1 V868 




STQ* 


1300 


03F2 0001 




INQ 


1301 


03F3 V86A 




STQ* 


1302 


03FV 580F 




RTJ* 


1303 


03F5 E800 
03F6 FC9A 




LDQ 


130 V 


03F7 0125 




SAP 


1305 


03F8 COOO 
03F9 0016 




LDA 


1306 


03FA 9BED 




SUB* 


1307 


03FB 0101 




SAZ 


1308 


03FC OCOO 




ENQ 


1309 


03FO V85B 


ST0PX1 


STQ* 



A=POS IF Q = OR GREATER THAN A ON ENTRY * 
<A=0 IF A*Q ON ENTRY) * 

RELATIVE CORE POSITION A • Q 

RPl-*-l 

RP2-*-l 

1 

RP3 

RP3-*-l 

A BOTH POS OR NEG. 

A 

(AQPOS) 

STOPX PROCESSING ROUTINE * 



FLGSTP 

JUMPX 



PRESTP 
STOPX 
JUMP1 

STOPX +1 




TTBUSY 

I 

I SAVE 

BIAS 

LASTVALUE 

STOPX 

XSAVE 

1 

XSAVE+i 

AQPOS 

TSACTV 

STOPXl-*-l 
=XERE100+1 

STOPX 

STOPXl-*-l 



USRPNT 



BUSY FLAG TO INT ERR REP0RTEPTC2 
CHECK FOR MONITOR STOP FIRST 



GO INTO STOPX NOH FROM THE TEST 

PRESERVE PRESENT STOPX ACTIVITY. 
IREG, 



AND 



AREG. 



(MONITOR LHA+1) 



PTC2 
PTC2 
USED BY A/Q TTY PTC2 

DETERMINE RELATIVE POSITION. 



APOS = TEST ENTRY TO STOPX. 
ANEG = SMM ENTRY, 

CHECK FOR MBS CALL- 
AZERO= YES, USE TEST POINTER. 
USRPNT INOEXES TEST LIST TABLES, 
= TSACTV IF TEST ENTRY. 



60V11V00 C 



PAGE 28 



•~) o o o o o 



O'O "O O O O O CTD 



o o o 



r 



V 



SMHOOO 



PAGE 29 



DATEl 12/17/7* 



1310 


03FE 0151 


SON 


1 


1311 


03FF OCOB 


ENQ 


11 


1312 


0400 CAOO 

0401 FCAO 


LOA 


TSTJP-1,Q 


1313 


0402 6850 


STA* 


SJX 


131.4 


0403 E800 

0404 FCB5 


LDQ 


MSTJP 


1315 


0405 0195 


SWN 


STOPX 3-*-l 


1316 


0406 OFAF 


QLS 


15 


1317 


0407 0172 


SQM 


ST0PX2-*-l 


1318 


0408 F800 

0409 FC70 


AOQ 


BIT15 


1319 


040A 0FA1 ST0PX2 QLS 


1 


1320 


040B 0864 STQPX3 TCA 


A 


1321 


040C 0852 


TCQ 


Q 


1322 


0400 08F4 


CAQ 


A 


1323 


040E 684C 


STA* 


MTSTJP 


1324 


040F EC4E 


LDQ* 


fXSAVE+ll 


1325 


0410 C84F 


LDA* 


SJX 


1326 


0411 AOOO 

0412 0200 


AND 


= N$02O0 


1327 


0*13 0113 


SAN 


ST0PX4-*-l 


1328 


0414 C803 


LDA* 


STOPX 


1329 


0415 964C 


SUB* 


BIAS 


1330 


0416 0121 


SAP 


ST0PX5-*-l 


1331 


0417 C8D0 ST0PX4 LDA* 


STOPX 


1332 


0418 6848 STOPX5 STA* 


RTA 


1333 


0419 0010 


INQ 


$10 


1334 


041A OAOE 


ENA 


$E 


1335 


041B 08S4 


LAQ 


A 


1336 


041C 0112 


SAN 


2 


1337 


0410 6844 


STA* 


BIAS 


1338 


041E 1802 


JMP* 


ST0PX6 


1339 


0«»iF 0010 


INQ 


310 


1340 


0420 483E ST0PX6 STQ* 


ID 


1341 


0421 C839 


LOA* 


MTSTJP 


1342 


0422 AOOO 

0423 0100 


AND 


aNSlOO 


1343 


0424 6835 


STA* 


OMITTO 


1344 


0425 0F24 


QRS 


4 


1345 


0426 OAOF 


ENA 


$F 


1346 


0427 08B4 


LAQ 


A 


1347 


0428 6856 


STA* 


STOPCNT. 


1348 


0429 0864 


TCA 


A 


1349 


042A 6855 


STA* 


NE6CNT 


1350 


042B 6855 


STA* 


AQCNT 


1351 


042C E820 


LDQ* 


OMITTO 


1353 


0420 OA03 CKID ENA 


3 


1354 


042E A830 


ANO* 


10 


1355 


042F 0107 


SAZ 


ID48-*-i 


1356 


0430 A82A 


ANO* 


HTSTJP 


1357 


0431 09FE 


INA 


-1 



= ZERO IF SMH ENTRY, 



BRING UP MONITOR STJP 

MONITOR STOP 

YES 

IS MSTJP BITO SET 

NO SET IT. 



LOGICAL 
OR 

OPERATION 

LOAD ENTRY ID, 

BIAS RTA- 

AZERO * YES. 

UNBIAS RTA. 

(RESULT NEGATIVE FOR MBS 

ENTRIES. USE ENTRY VALUE). 

ENTRY ID PLUS ONE STOP. 

IPREPARE DATA INDEX FLAG) 



NO. ADDITIONAL STOP NECESSARY. 
AMENDED 10 TO BE REPORTED. 



PREPARE OMIT-TYPEOUT FLAG. 



STOPCNT = DATA PAIR COUNT (A/Q). 

NEGCNT ■ COMPLEMENT OF STOPCNT. 
AQCNT s ACTUAL STOPS TO BE MADE. 



DECIDE STOP TYPE. (1*2,4, OR 8) 
SKIP IF END-OF-TEST OR ERROR. 
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1358 


0432 0106 




SAZ 


I01-»-l 


1359 


0433 Q13F 




SAN 


CKSJ48-»-l 


1360 


0434 0154 




SON 


IOi-*-l 


1361 


0435 OCFE 




END 


-1 


1362 


0436 1802 




JHP* • 


102 


1363 


0437 015B 


1048 


SQN 


CKSJ48-»-l 


136<t 


0438 4848 


102 


STQ* 


AQCNT 


1365 


0439 5829 


101 


RTJ» 


AQTTY 


1366 


043A 011F 




SAN 


SKPXIT- »-l 


1367 


043B 5800 
043C 0080 




RTJ 


STPTYP 


1366 


043D 0AO1 




ENA 


1 


1369 


043E 6840 




STA» 


STOPCNT 


1370 


043F 0864 




TCA 


A 


1371 


0440 683F 




STA* 


NEGCNT 


1372 


0441 683F 




STA» 


AQCNT 


1373 


0442 0140 




SQZ 


STP£XIT-»-i 


1374 


0443 OAOC 


CKSJ48 


ENA 


sc 


1375 


0444 A81A 




ANO» 


10 


1376 


0445 A815 




AND» 


NTSTJP 


1377 


0446 0109 




SAZ 


STPEXlT-»-l 


1378 


0447 5800 

0448 0162 




RTJ 


TTBUSY 


1379 


0449 5819 




RTJ» 


AQTTY 


1380 


044A 0115 


SKPXIT 


SAN 


STPEXIT-»-i 


1381 


044B COOO 




LOA- 





1382 


044C 0000 


NEWSJ 


NUH 





1383 


0440 8812 




EOR* 


SJX 


1384 


044E 0101 




SAZ 


STPEXIT-o-i 


1385 


044F 587A 




RTJ» 


STPTYP 


1366 


0450 C808 


STPEXIT 


LDA» 


ISAVE 


1387 


0451 60FF 




STA- 


I 


1388 


0452 E800 

0453 FC05 




LDQ 


JUHP3 


1389 


0454 0844 




CLR 


A 


1390 


0455 6800 

0456 FE09 




STA 


FLGSTP 


1391 


0457 1C90 


ENOSTP 


JHP» 


(STOPX) 


1393 


0458 0000 


USRPNT 


NUH 





139* . 


0459 0000 


OHITTO 


NUN 





1395 


045A 0000 


HTSTJP 


NUM 





1396 


0458 0000 


ISAVE 


NUN 





1397 


045C 0000 


XSAVE 


NUH 





1398 


045O 0000 




NUN 





1399 


045E 0000 


ID 


NUH 





1400 


045F 0000 


SJX 


NUH 





1401 


0460 0000 


RTA 


NUH 





1402 


0461 0000 


BIAS 


NUH 





1404 


0462 0000 


AQTTY 


NUH 





1405 


0463 C0E1 




LDA- 


ST0P8FR 


1406 


0464 981 A 




SUB» 


STOPCNT 



SKIP IF PARAH STOP 
SKIP IF S/J BIT NOT SET, 
OTHERWISE = ENO-OF-SECTION STOP. 
IONLY ONE ACTUAL STOP 

UNLESS OHIT TYPEOUT SET) 
OMIT TYPEOUT SET- CSTOP 4 OR 8) 
NO. AQTTY PREPARES TYPEOUT DATA. 
IDISPLAY/ENTRY, ASCII OATA PREP) 
SKIP TO EXIT IF ST0P1,2 ♦ OHITTO 
GO TO STOPX TYPEOUT ROUTINE. 



PREPARE FOR SINGLE, 

STJP ENTRY STOP, 

RE-TYPE ON CHANGE. 

IBYPASS STOP AFTER CORE HOD RE-START) 



SKIP s ERROR OR EOT STOP NOT SET 
CCOHPLETE TYPEOUT BEFORE STOP) 

GO TO A/Q/TTY FOR STOP. 
CA=OHIT TYPEOUT FLAG ON RETURN) 
OHIT TYPEOUT NOT SET, 

CHECK FOR STOP/JUHP 

PARAHETER CHANGE. 
SKIP IF NO CHANGE. 
TYPE NEW PARAHETER 

RESTORE 



CLR STOPX BUSY FLAG. 



EXIT STOP ROUTINE 



PTC2 



INDEX TO TEST LIST TABLES. 
FLAG=0, OHIT TYPEOUTS NOT SET. 
PSUEDO STOPO JUHP PARAH. 
I ON ENTRY 

RETURN ADDR OF STOPX ENTRY RTJ. 
RETURN AOORESS-H OF ENTRY RTJ. 
IDENTITY OF STOPX INSTIGATOR. 
STOP/JUHP PARAH OF INSTIGATOR. 
RETURN AODR OF STOPX INSTIGATOR, 
LISTING, LOADED ADDR DIFFERENCE. 

A/Q DISPLAY/ENTRY, 

TYPEOUT OATA PREP. 
(TYPEOUT BFR HINUS TWO TIHES 
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DATE! 12/17/74 



1407 


0465 


9819 




SUB* 


STOPCNT 


mo8 


0466 


685E 




STA» 


BFR1 


1409 


0467 


685E 




STA* 


BFR2 


1410 


0468 


8860 




ADD* 


S7FFF 


1411 


0469 


885F 




ADD* 


S7FFF 


1412 


046A 


0500 


AQ1 


UN 





1413 


046B 


080C 




TRM 


A 


1414 


046C 


0113 




SAN 


AQlA-*-l 


1415 


046D 
046E 


C800 
FBD3 




LDA 


SETMASK 


1416 


046F 


0621 




TRA 


M 


1417 


0470 


C8E0 


AQ1A 


LDA* 


ID 


1418 


0471 


E8E0 




LDQ* 


SJX 


1419 


0472 


5839 




RTJ* 


CKAQ 


1420 


0473 


6C51 




STA* 


(BFR1) 


1421 


0474 


0850 




RAO* 


BFR1 


1422 


0475 


4C4F 




STQ* 


tBFRl) 


1423 


0476 


D84E 




RAO* 


BFR1 


1424 


0477 

0478 


AOOO 
FFOO 


CKIONM 


ANO 


= N$FFQ0 


1425 


0479 


OFFO 




LLS 


16 


1426 


047A 


4000 




STQ- 





1427 


047B 


0000 


IOSAVE 


NUH 





1428 


047C 


68CF 




STA* 


NEHSJ 


1429 


047D 


1804 




JMP* 


SINGLE 


1431 


047E 


0000 


STOPCNT 


NUM 





1432 


047F 


0000 


NEGCNT 


NUM 





1433 


0480 


0000 


AQCNT 


NUM 





1435 


0481 


£806 


SINGLE 


LDQ* 


USRPNT 


1436 


0482 


0142 




SQZ 


2 


1437 


0483 
0484 


6800 
FB8E 


SJPARAM 


STA 


STJP 


1438 


0485 


015F 




SQN 


SCAN4-* 


1439 


0486 


E8F4 




LDQ* 


IDSAVE 


1440 


0487 


014C 




SQZ 


SCAN4-*-l 


1441 


0488 


6806 




STA* 


SJX 


1442 


0489 


OCOA 




ENQ 


10 


1443 


048A 
Q48B 


CAOO 
FC05 


SCANIO 


LDA 


TSFREQ-1,Q 


1444 


048C 


A8EB 




ANO* 


CKIDNM+1 


1445 


048D 


B8E0 




EOR* 


IDSAVE 


1446 


048E 


0103 




SAZ 


SCAN2-*-l 


1447 


048F 


0147 




SQZ 


NEWMASK-*-l 


1448 


0490 


OOFE 




INQ 


-1 


1449 


0491 


18F8 




JMP* 


SCANIO 


1450 


0492 


C8CC 


SCAN2 


LDA* 


SJX 


1451 


0493 


1802 




JMP* 


SCAN4+1 


1452 


0494 


OCOB 


SCAN4 


ENQ 


11 


1453 


0495 
0496 


6A00 
FC18 




STA 


TSTJP-1,Q 


1454 


0497 


0400 


NEWMASK 


EIN 






STOP COUNT = DATA BFR FHA) 



LIGHT OVERFLOW LAMP ON 1ST STOP, 
IFOR 65K ASSURANCE) 

DISPLAY CURRENT M-REG AT 
1ST STOP. USE SYSTEM 
MASK FOR M.C START 

FROM TEST FHA 



CHECK FOR A/Q STOP, TTY INPUT, 
1ST OATA BFR WORD = ID. 

2ND OATA BFR WORD = STJP. 



PLUG STJP INTO TEST OR SMM STJP 

DATA PAIR COUNT. 
COMPLEMENT OF STOPCNT. 
ACTUAL AQ STOP COUNT. 

IUSRPNT POINTS TO STOPX USER) 
SKIP IF USER IS SMM. 
CACTIVE TESTIS STJP PARAM) 



IS ID = SMM 

NI CHANGE TEST STJP 



SKIP IF THIS IS THE TEST 

SKIP IF LIST HAS BEEN EXAUSTEO 



STORE IN USERIS STJP TABLE ENTRY 
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1455 


0498 01A0 




SOV 







1456 


0499 C8C7 


AQ2 


LDA» 


BIAS 




1457 


049A 0105 




SAZ 


PAR0AT-*-i 




1458 


049B 5818 




RTJ» 


CKCOUNT 




1459 


049C COCO 




LOA* 


(XSAV£+1),I 




1460 


049D E8C2 




LOQ* 


RTA 




1461 


049E 5800 




RTJ* 


CKAQ 




1462 


049F 1807 




JHP* 


POl 




1463 


04A0 5816 


PAROAT 


RTJ» 


CKCOUNT 




1464 


04A1 COBA 




LOA* 


(XSAVE) f I 




1465 


Q4A2 EDBA 




LDQ* 


(XSAVE+1),I 




1466 


04A3 5808 




RTJ» 


CKAQ 




1467 


04A4 40B8 




STQ* 


(XSAVE+i),! 




1468 


04A5 60B6 




STA* 


(XSAVE) „I 




1469 


04A6 6C1E 


P01 


STA* 


(BFR1) 




1470 


04A7 D810 




RAO* 


BFR1 


... 


1471 


04A8 4C1C 




STQ* 


(8FR1) 




1472 


04A9 081B 




RAO* 


BFR1 




1473 


04AA 18F5 




JHP» 


PAROAT 




1476 


04AB 0000 


CKAQ 


NUH 







1477 


04AC 6804 




STA» 


CKAQA 




1478 


04AD C802 




LDA* 


AQCNT 




1479 


04AE 0133 




SAM 


AQSTP-*-l 




1480 


04AF COOO 




LDA- 







1481 


04B0 0000 


CKAQA 


NUH 







1482 


04B1 1CF9 




JHP* 


(CKAQ) 


_- 


1483 


0482 C8F0 


AQSTP 


LDA» 


CKAQA 




1484 


04B3 5800 
0484 02CO 




RTJ 


INTTY 




1485 


04B5 1CF5 


RTAQ 


JHP* 


(CKAQ) 




1487 


04B6 0000 


CKCOUNT 


NUH 





_ 


1488 


04B7 D8G7 




RAO* 


NEGCNT 




1489 


04B6 D8C7 




RAO* 


AQCNT 




1490 


04B9 C8C5 




LOA» 


NEGCNT 




1491 


04BA 0107 




SAZ 


ENOAQ-»-l 




1492 


04BB 88C2 




ADD* 


STCPCNT 




1493 


04BC 0FC1 




ALS 


1 


_ 


1494 


04BO E8A3 




LOQ* 


BIAS 




1495 


04BE 0141 




SQZ 


1 




1496 


04BF 09FE 




INA 


-1 




1497 


04C0 60FF 




STA- 


I 




1496 


04C1 1CF4 




JMP* 


(CKCOUNT) 




1499 


04C2 C896 


ENOAQ 


LDA» 


OHITTO 




1500 


04C3 1C9E 




JHP* 


(AQTTY) 




1502 


04C4 0000 


BFR1 


NUH 







1583 


04C5 0000 


8FR2 


NUH 







1504 


04C6 0000 


8FRB4L 


NUH 







1505 


04C7 FFFF 


LASTIO 


NUH 


-0 




1506 


04C8 7FFF 


S7FFF 


NUH 


$7FFF 



(TURN OFF OVERFLOW LIGHT) 
NOT PARAHETER ENTRY 
RTA SUPPLIED BY USER- 
NO, USE RTA FORHED BY STOPX. 



CONTINUE PARAHETER/OATA CYCLE 
FOR REHAINOER OF COUNT, 



CHECK AQ COUNT FOR STOP. 



ANEG a REGISTER DISPLAY/ENTRY. 
APOS = NO STOP. CONTINUE AQTTY 
FOR TYPEOUT DATA PREPARATION. 



DISPLAY ENTRY VIA A/Q OR TTY. 



UPDATE COUNTERS* 

HAKE AQTTY TERMINATION, 

CONTINUATION DECISION. 



(PAIR COUNT DOUBLEDsDATA INDEX) 
DECREMENT DATA INOEX 

IF RTA NOT SUPPLIED BY USER. 



RETURN FROH AQTTY WITH 

AREG * OHIT TYPEOUT FLAG. 

TYPEOUT DATA BUFFER. 
BFR1 RESET POINTER. 
BFR1 C CUNT TO LINE UPDATE. 
PREVIOUS ENTRY ID. 
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1508 


0%C9 


0000 


STPTVP 


NUH 





FORM STOPX BUFFER 


1509 


0%CA 


OCOO 




ENQ 





FOR MESSAGE ROUTINE. 


1510 


0%CB 


%OFF 




STQ- 


I 


(RESET STOPBFR INDEX* 


1511 


0%CG 


C8F8 




LDA* 


BFR2 


DATA BFR POINTER) 


1512 


0%CD 


68F6 




ST A* 


BFR1 




1513 


0%CE 


E88F 




LDQ» 


ID 




151% 


0%CF 


C8F7 




LDA* 


LASTID 




1515 


0%DO 


87% 




EAQ 


A 




1516 


0%01 


0109 




SAZ 


JTYPL-*-l 




1517 


O%02 


68F% 




STA* 


LASTIO 




1518 


0%D3 


OAOO 




ENA 





FORMAT MESSAGE 


1519 


0%D% 


58%E 




RTJ* 


MESSAGE 


WITH INITIAL CARRIAGE RETURN. 


1520 


0%OS 


C8F1 




LDA* 


LASTID 




1521 


0%06 
0%D7 


AOOO 
FFQO 




AND 


*N$FFOO 




1522 


O%08 


E885 




LDQ* 


10 




1523 


0%09 


%8ED 




STQ* 


LASTID 




1521* 


0%OA 


0111 




SAN 


TYPAQX-*-l 




1525 


0%DB 


181B 


JTYPL 


JMP* 


TYPLINE 




1526 


0%OC 


E81B 


TYPAQX 


LDQ* 


S8D0A 




1527 


0%OD 


%5E1 




STQ- 


(STOPBFR), I 




1528 


0%OE 


DOFF 




RAO- 


I 




1529 


0%DF 


E89E 




LDQ» 


STOPCNT 




1530 


0%E0 


0852 




TCQ 


Q 




1531 


0%E1 


%890 




STQ* 


NEGCNT 




1532 


0%E2 


0A01 


AQX 


ENA 


1 




1533 


0%E3 


A OFF 




ANO- 


I 


(I<= STOPBFR POINTER* 


153% 


0%E% 


E806 




LDQ* 


S2020 




1535 


0%E5 


0021 




INQ 


$21 


FORM AX ASCII CODE. 


1536 


0%E6 


0112 




SAN 


AQXl-*-l 


POINTER EVEN 


1537 


0%E7 


0010 




INQ 


810 


AZERO = YES, FORM QX, UPOATE X. 


1538 


0%E8 


0896 




RAO* 


NEGCNT 




1539 


0%E9 


8000 


AQX1 


AOD- 







15%0 


0%£A 


2020 


S2020 


NUN 


82020 




15i»l 


0%EB 


8892 




ADD* 


STOPCNT 


FORM THE X OF AX, QX. 


15*»2 


0%EC 


8892 




ADD* 


NEGCNT 


(ODD/EVEN BIT PLUS STOP/NEGCNT) 


15%3 


0%EO 


0910 




INA 


810 




15%% 


0%EE 


0FC8 




ALS 


8 




15%5 


0%EF 


581E 




RTJ* 


BLOBFR 


STORE Q, A, S2020 IN STOPBFR. 


15%6 


0%F0 


E88E 




LOQ* 


NEGCNT 




15%7 


0%F1 


01%% 




SQZ 


TYPLINE-»-l 


END AX/QX HEADING, 


15 %8 


0%F2 


F888 




ADQ* 


STOPCNT 


IF X « STOPCNT. 


15%9 


0%F3 


OOF 9 




INQ 


-6 


OR X - 6. 


1550 


0%F% 


01%1 




SQZ 


TYPLINE-*-i 




1551 


0%F5 


18EC 




JMP» 


AQX 




1552 


0%F6 


EOOO 


TYPLINE 


LDQ- 







1553 


0%F7 


8O0A 


S8D0A 


NUH 


S800A 


CARRIAGE RETURN, 


155% 


Q%F8 


%5E1 




STQ- 


ISTOPBFR),I 


LINE FEEO, 


1555 


0%F9 


OOFF 




RAO- 


I 


AND UPDATE POINTER 


1556 


0%FA 


0AF3 




ENA 


-12 




1557 


0%FB 


68CA 




STA* 


BFRB%L 


DATA COUNT BEFORE NEXT TYPE LINE 


1558 


0%FC 


C8C7 


DATA 


LDA* 


BFR1 
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1559 


OVFD 


9QE1 


SUB- 


1560 


04FE 


010 A 


SAZ 


1561 


Q4FF 


E8C6 


LDQ* 


1562 


0500 


0151 


SQN 


1563 


0501 


18F4 


JMP* 


1564 


0502 


D8C3 DATA1 RAO* 


1565 


0503 


CCCO 


LDA* 


1566 


0504 


D8BF 


RAO* 


1567 


0505 


5800 


RTJ 




0506 


FEB1 




1568 


0507 


5806 


RTJ» 


1569 


0508 


18F3 


JMP» 


1570 


0509 


EOFF ENOBFR LOQ- 


1571 


090A 


C0E1 


LDA- 


15 72 


050B 


5817 


RTJ* 


1573 


050C 


1CBC 


JMP* 


1575 


050D 


0000 BLOBFR NUM 


1576 


050E 


45E1 


STQ- 


1577 


050F 


OOFF 


RAO- 


1578 


0510 


65E1 


STA- 


1579 


0511 


DOFF 


RAO- 


1580 


0512 


C807 


LDA* 


1581 


0513 


65E1 


STA- 


1582 


0514 


OOFF 


RAO- 


1583 


0515 


1CF7 


JMP* 



STOPBFR 

ENOBFR-*-l 

BFRB4L 

OATAi-*-l 

TYFLINE 

BFRB4L 

(BFR1J 

BFR1 

CONASC 

BLOBFR 

DATA 

I 

STOPBFR 

MESSAGE 

(STPTYP) 



CST0P8FR),I 

I 

(STOPBFR), I 

I 

S2 020 

(STOPBFR), I 

I 

(BLOBFR) 



EXIT STOPBFR PREP ON ENO OF DATA 

ENTER CARRIAGE RETURN, LINE FEED 
FOR EACH 12 WORDS OF DATA. 



CONVERT DATA TO TYPEWRITER CODES 

ENTER CODED DATA IN STOPBFR. 
REPEAT UNTIL END OF DATA, 
(I ■= WORD COUNT) 

OUTPUT STOPX BUFFER, 



BUILD COOED BUFFER 

FOR MESSAGE ROUTINE 



STORE REG, 



A REG, 



AND SPACES. 
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1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 



♦ 

* MESSAGE TYPEOUT ROUTINE 

* ENTER WITH A* INITIAL AODRESS OF DATA BLOCK 

* Q- NUMBER OF HOROS FOR OUTPUT 

* 

* NOTE 

* 

» NON INTERRUPT PORTION OF THIS ROUTINE MUST BE 

* RUNANYHHERE 

* • 



1599 
16 00 

1601 

1602 
1603 
1604 
1605 
1606 

1607 



0516 
0517 
0518 
0519 
851A 
851B 
051G 
0510 
091E 
051F 
0520 
0521 



0000 
0800 
F048 
6800 
FBB9 
C8FA 
6806 
081*4 
68F7 
G800 
FBB3 
1805 



TTYPE 



NUM 

RAO 

ST A 

LOA* 

STA» 

CLR 

STA» 

LOA 

JMP» 



FLSMSG 

TEHPLOC 

TTYPE 

MESSAGE 

A 

TTYPE 

TEHPLOC 

HESSAO 



ENTRY FOR HSG OUTPUT FROM TTYINPUT OR 
SET BUSY FLAG FOR INT ERROR 



1609 
1610 

1611 
1612 

1613 

161*i 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 



0922 
0523 
052 4 
0525 
0526 
0527 
0528 
0529 
0S2A 
052B 
D52C 
0520 
092E 
052F 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 



0450 
0800 
F03C 
D8F0 
5800 
0083 
D800 
FB1F 
687B 
0844 
0163 
0FA1 
0F21 
0901 
6879 
C874 
0111 
0C01 
0852 
4871 
E8EB 
5800 
FB2A 



MESSAGE AOC 
RAO 



HESSAO 



RAO» 
RTJ 

RAO 



STA» 
CLR 
SQP 
QLS 
QRS 
INA 
STA* 
LDA» 
SAN 
EHQ 
NOTFORM TCQ 
STQ» 
LDQ» 
RTJ 



STPEXIT 
F1LGMSG 

TTYPE 
TTBUSY 

INFORM 

ADDR 

A 

3 

1 

1 

1 

TTYHSG 

ADOR 

NQTFQRM 

1 

a 

CNTNUM 

HESSAGE 

LOSTJP 



(FOR SMMCNT BIT15 ♦ NSTJP BIT09 POSSIBILITY) 
FLAG BUSY TO INT ERROR REPORTER. 

NONZERO ENTRY AS A FLAG 
PRESERVE MSG ACTIVITY 



SET TTY BUSY SWITCH 

SKIP IF THIS IA A FULL MESSAGE 

DROP BIT 15 FLAG IN WORD COUNT 

SET OR CLEAR LP DRIVER FLAG 
RESTORE A REG 

(COMPLEMENT VJORD COUNT) 

(LOAD APPROPRIATE STOP/JUMP WD) 



-»-i 
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1628 


0539 


0FC7 


ALS 


7 


_ 


1629 


053A 


0121 


SAP 


1 




1630 


053B 


1833 


JNP» 


HESS A 3 




1631 


053C 


C800 


LDA 


SMMCNT 


^. 




0530 


FBI 8 








1632 


053E 
053F 


A800 
FB35 


AND 


BIT10 


.„ 


1633 


0540 


0104 


SAZ 


NOTFN1 




1634 


0541 


C8D4 


LOA» 


TTVPE 




1635 


0542 


0102 


SAZ 


NOTFM1 




1636 


0543 
0544 


1800 
03G6 


JHP 


DR42 




1637 


0545 


E862 N0TFH1 LOQ» 


HESS 


_ . 


1638 


0546 


02FE 


INP 


-1 




1639 


0547 


OFCE 


ALS 


14 




1640 


0S48 


0121 


SAP 


1 




1641 


0549 


18FC 


JMP» 


»-3 




1642 


054A 
094B 


COQO 
0400 


LOA 


=N$400 




1643 


054C 


0300 


OUT 







1644 


054D 


0F42 


ARS 


2 




1645 


054E 


03FE 


OUT 


-1 




1646 


054F 


C856 


LOA» 


ADDR 




1647 


0550 


0113 


SAN 


HESS0-» 




1648 


0551 


C857 


LDA» 


H8O0A 




1649 


0552 


OOFE 


INQ 


-1 




1650 


0553 


1812 HESSO JMP» 


HESSAZ+1 




1651 


0554 
0555 


C800 
FBOO 


LOA 


SMHCNT 




, 1652 


0556 


OFCA 


ALS 


10 




1653 


0557 


013B 


SAM 


HESSAl-*-l 




1654 


0558 


080C 


TRH 


A 




1655 


0559 
055A 


A800 
FB11 


AND 


BIT01 




1656 


055 B 


0107 


SAZ 


HESSAl-*-l 




1657 


055C 


0804 


SET 


A 




1658 


0550 


6847 


STA» 


HESS6 




1659 


055E 


6845 


STA* 


INTACT 




1660 


055F 


0A04 


ENA 


4 




1661 


0560 


03FE 


OUT 


-1 


. 


1662 


0561 


0400 


EIN 







1663 


0562 


1811 


JHP» 


HESSA4 




1665 


0563 


OOFE MESSA1 INQ 


-1 




1666 


0564 


CC41 MESSA2 LDA* 


(AOOR) 




1667 


0565 


0FC8 


ALS 


8 




1668 


0566 


03FE 


OUT 


-1 




1669 


0567 


0FC8 


ALS 


8 


... 


1670 


0568 


03FE 


OUT 


-1 




1671 


0569 


0830 


RAO» 


CNTNUH 




1672 


056A 


083B 


RAO» 


AOOR 


,-■ 


1673 


056B 


C83B 


LOA» 


CNTNUH 



OHITT TYPE-OUT SET 

YES 

GET SHH PARAHETER 

CHECK IF PRINTER SELECTED 

SKIP TO TTY OUTPUT 

GET POSSIBLE TTY INPUT PACKAGE RTN AOO 

IF RTN AOOR ZERO, USE TTY 

IF NON ZERO, USE LINEPRINTER 



STATUS 

WAIT NOT BUSY 

SELECT CK) HODE 
SELECT HRITE HOOE 

1AZERO a LINE FEEO, 

CARRIAGE RETURN ENTRY) 

NO INTERRUPTS 

IS LEVEL 1 INT. ENABLEO 

NO* USE NON-INT. HODE TYPEOUT 



INDICATE INTERRUPT HODE ACTIVE. 
SELECT DATA INTERRUPTS 
FUNCTION HAY REJECT 
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167«i 


056C 0101 




SAZ 


1 


1673 


056D 18F6 




JMP» 


HESSA 2 


1676 


056E OAFE 


HESSA3 


ENA 


-1 


1677 


056F A 800 
0570 FA08 




AND 


INFORM 


1678 


0571 6800 

0572 FA06 




STA 


INFORM 


1679 


0573 08** 


HESSA* 


CLR 


A 


1680 


057* 6800 
0575 FCEB 




STA 


FLGMSG 


1661 


0576 1CAB 


ENOHES 


JMP» 


(MESSAGE) 


1682 


0577 OOOO 


MESSIN 


NUH 


SO 


1683 


0578 E82F 


HESS1C 


LOO* 


MESS 


168* 


0579 0223 




INP 


MESS*-*-l 


1685 


097A A076 




AND- 


BITil 


1666 


057B 010* 




SAZ 


HESS1A-*-! 


1687 


057C 0A02 




ENA 


2 


1688 


057D 03FE 




OUT 


-1 


1689 


057E 5*00 




RTJ- 


(HANUALINT) 


1690 


057F 181A 




JMP» 


MESS2A 


1691 


0580 C826 


HESS1A 


LDA* 


CNTNUH 


1692 


0581 0119 




SAN 


MESSlB-*-i 


1693 




« 






1694 




« 






1695 


0582 0A02 




ENA 


82 


1696 


0583 03FE 




OUT 


-1 


1697 


058* 0500 


HESS3 


UN 





1698 


0585 08** 




CLR 


A 


1699 


0586 6810 




STA* 


INTACT 


1700 


0587 OAFE 




ENA 


-1 


1701 


0588 A0*9 




AND- 


INFORM 


1702 


0589 60*9 




STA- 


INFORM 


1703 


058A 180F 




JHP* 


MESS2A 


170* 


098B OOFE 


MESS1B 


INQ 


-1 


1705 


058C C818 




LDA* 


MESS6 


1706 


0580 010* 




SAZ 


MESSi-*~i 


1707 


058E CC17 




LDA* 


(A DOR) 


1708 


05BF 0FC8 




ALS 


8 


1709 


0590 030C 




OUT 


MESS*-*-l 


1710 


0591 1805 




JMP* 


MESS2 


1711 


0592 CC13 


MESS1 


LDA* 


(ADDR» 


1712 


0593 0309 




OUT 


HESSt»-»-l 


1713 


059* 0811 




RAO* 


AOOR 


171* 


0595 0811 




RAO* 


CNTNUM 


1715 


0596 C80E 


MESS2 


LDA* 


MESS6 


1716 


0597 086* 




TCA 


A 


1717 


0598 680C 




STA* 


MESS6 


1718 


0599 OCO* 


MESS2A 


ENQ 


* 


1719 


059A 0*00 




EIN 





1720 


059B 1C0B 




JMP* 


(MESSIN} 


1722 


059C OBOO 




NOP 






LAST WORD OUTPUT 
NO 

CLEAR TTY BUSY SWITCH 



CLR REPORTER FLAG. 



NO 

INPUT STATUS 

MANUAL INTERRUPT 

YES 

CLEAR MANUAL INT 

GO TO MANUAL INT ROUTINE 



ALLOWS ONE EXTRA INTERRUPT SO TH 
THE TELETYPE IS NOT BUSY WHEN 
THE INTERRUPT IS CLEARED 
CLEAR DATA INT 
FUNCTION MAY REJECT 



CLEAR INT MOOE ACTIVE FLAG 



CLEAR TTY BUSY SNITCH 
RETURN TO SMM INT ROUTINE, 



FIRST CHAR OF WORD 
YES 



OUTPUT LAST CHAR OF WORD 

COHPLEt£NT CHAR SWITCH 

LOAD EXIT STATE VALUE. 
RETURN SMM INT ROUTINE 
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1723 
172*1 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
173* 
1735 
1736 
1737 



0590 
059E 
059F 
05AO 
05A1 
05A2 
05A3 
05A4 
05A5 
05A6 
05A7 
05A8 
05A9 



CC04 
0113 
0AO6 
5400 
0246 
18E1 
0000 
FFFF 
0000 
0000 
0091 
800A 
0000 



MESS4 



XREPORT 

INTACT 

HESS6 

AODR 

CNTNUM 

MESS 

H8D0A 

TTYMSG 



LOA* 

SAN 

ENA 

RTJ- 

ADC 

JHP* 

NUM 

NUH 

NUM 

NUM 

NUM 

NUM 

NUM 



< XREPORT) 

XREPORT-* 

DA TARE J 

(0) 

REPORT 

MESS3 

SO 

-SO 

$0 

SO 

S91 

S8O0A 





SKIP REPORT IF REPORTER BUSY 
(ERROR CODE) 
REPORT REJECT. 



INTERRUPT MODE ACTIVE SWITCH 
CHAR SWITCH 



EQUIPMENT ADDRESS FOR TELETYPE 
ASCII CODE FOR TTY CR» LF. 
MULTI-PART MESSAGE FLAG 

=1 IF CALL IS ONLY A PARTIAL MSG 
=0 IF CALL IS A COMPLETE MSG 



1739 
17*0 
1741 
1742 

1743 
1744 
1745 
1746 
1747 



05AA 
05AB 
05AC 
05AO 
05AE 
05AF 
0580 
0581 
0582 
0583 



0000 
6808 
0A01 
A800 
FA9A 
0101 
18FC 
C802 
1CF7 
0000 



TTBUSY 



NUM 
STA» 
ENA 
AND 



SAZ 
JMP* 
LOA* 
JMP* 
TY8ZYA NUM 



TYBZYA 

1 
INFORM 



TTBUSY+3 
TYBZYA 
I TTBUSY) 





TEST TaETYPE BUSY SWITCH 
LOOP UNTIL NOT BUSY 



BUSY 
YES. 



NO EXIT 



1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 

1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 



**9*********** ****** ********«*^ »«*«***« **«**»*«***«**«******«* **9******* 



05B4 
0505 
0586 
0587 
0588 
0589 
05BA 
05BB 
05BC 
05BO 
05BE 
05BF 
05CO 
05C1 
05C2 



0000 
60C2 
0852 
40C1 
C816 
2814 
60C0 
403F 
0FE8 
9AA 
6810 
0OC9 
480D 
0C02 
G28E 



RANDOM NUMBER GENERATOR 
ENTER ROUTINE WITH- 

0= NUMBER OF HOROS TO BE GENERATEO 
A* FWA OF STORAGE AREA 



» H »«»,«»»»»«»»J*»»»»«»»*«»M*M»MM»»»M»»»<t»MWHW»»***»?l*W 



GENRAN NUM 
STA- 
TCQ 
STQ- 

GENMORE LOA* 
MUI* 
STA- 
STQ- 
LLS 
INA 
STA* 
INQ 
STQ* 
ENQ 

STMORE LDA- 





B7 

Q 

B6 

Rl 

R 

85 

B4 

8 

-$55 

Rl 

-$36 

R 

2 

84-1, Q 



CPRODUCT ADDRESS) 
(COMPLEMENT WORD COUNT) 
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r> r\ 



"\ r\ 



O O O O O ( 



o o c 



o 



O ( 



SHHQOO 



1773 
177* 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
178* 



05C3 
03C* 
05C5 
05C6 
05C7 
05C8 
05C9 
05CA 
05CB 
05CC 
05CD 
05CE 



6*C2 
O0C2 
D9C1 
C0C1 
0111 
ICES 
QDFE 
0191 
18EC 
18F5 
7FFF 
ABAD 



GEN1 



R 
Rl 



PAGE 


39 


STA- 


CB7J 


RAO- 


B7 


RAO- 


B6 


LOA- 


B6 


SAN 


GENl-'-l 


JHP* 


1GENRAN1 


INQ 


-1 


SON 


1 


JHP» 


GENNORE 


JHP» 


ST MORE 


NUN 


S7FFF 


NUM 


$ABAO 



DATEI 12/17/7* 



NO ALL NUMBERS HAVE BEEN GENERA 



GENERATE 3 MORE NUMBERS 
STORE ONE MORE NUMBER 



1786 
1787 
1788 
1789 
1790 
1791 

1793 
179* 
1793 
1796 
1797 
1798 
1799 
1800 
1801 
1802 

1803 
180* 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
181* 
1815 
1816 

1817 
1818 

1819 



?* «***««»*?**»***** *9»«"V »»»♦»**«***»*»»»*»*»»»»»*»»«**»*»»*»»»» 9V*9 9*9V* 



LOAO OVERLAY ROUTINE 
ENTER WITH AREG * OVERLAY NUMBER 



05CF 
0500 
0501 
0502 
0503 
050* 
0505 
05D6 
0507 
0506 
0509 
050 A 
050B 
050C 
0500 
050E 
OSOF 
05E0 
05E1 
05E2 
05E3 
05E* 
Q5E5 
05E6 
05E7 
05EB 
05E9 
05EA 
05EB 
05EC 



0000 
E091 
E291 
0FE8 
60BC 
BQ*A 
0116 
60BC 
60BE 
C000 
0500 
68*8 
1810 
5*2 C 
0131 
D8F0 
1CEF 
08*2 
C056 
A079 
0105 
C056 
A077 
0113 
*800 
00F1 
183A 
*800 
OOEE 
18FG 



«i«f«y«f««#T«*»(i»»fV««*««V*«*«f*«**Mf*»f»*««**«4ff»«V«»VV*«*»fV«M«***4« 



OVERLAY NUM 
LOQ- 
LDQ- 
LLS 
STA- 
EOR- 
SAN 
STA- 
STA- 
LOA 



OVRLAi 



0VRLD1 
LDRCHK 



LOAONX 
CDDSK 



STA» 

JHP* 

RTJ- 

SAM 

RAO» 

JMP» 

CLR 

LDA- 

AND- 

SAZ 

LDA- 

AND- 

SAN 

STQ 

JMP» 
STQ 

JMP» 





TSACTV 

TSFREQ-1,Q 

8 

Bl 

LASTOV 

OVRLAI-*-! 

Bl 

B3 

=XOVRLAl*i 

LOCONT 

0VRBL2 

IPRGLOAD) 

OVRLDi-»-l 

OVERLAY 

(OVERLAY) 

Q 

SHMCNT 

BIT1* 

LOADNX-»-l 

SHMGNT 

BIT12 

CDDSK-*-l 

DPNAML 

LOAORBO 
COPNAM 

LOAONX 



POINTS TO TEST MAKING CALL 

RESULTING AREG = QVXX, HHERE 
XX = TEST, V = OVERLAY NUMBER 

SKIP FOR SEARCH IF LIB NOT 

POSITIONED FOR IMMEDIATE LOAO. 
CLEAR ERROR FLAG ON ENTRY PTC2 



SEARCH AND LOAO OVERLAY. 
ANEG * SUCCESSFUL LOAD. 
TERMINAL ERROR ENCOUNTEREO. 
RETURN TO CALLER AT P*2 ON ERROR 



NOT DP OR CART DISK 

CHECK FOR CART OISK 

CART DISK LDR 

OISK PACK - CLEAR ADDRESS WORD 

LOAD NEXT BLOCK 

CLEAR CART OISK ADDRESS WORD 
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DATE! 12/17/74 



1821 


05EO 0C02 


OVRBLK 


ENQ 


2 


1822 


05EE E646 




LDQ- 


CINBI1),Q 


18^3 


05EF 4048 




STQ- 


OVFMA 


1824 


05F0 0C01 




ENQ 


1 


1825 


05F1 E646 




LDQ- 


HNBI1),Q 


1826 


05F2 404A 




STQ- 


LASTOV 


1827 


05F3 0111 




SAN 


OVRBLl-»-l 


1828 


05F4 181F 




JHP* 


XFRBLK 


1829 


05F5 B04A 


0VRBL1 


EOR- 


LASTOV 


1830 


09F6 0101 




SAZ 


OVRBL2-»-l 


1831 


05F7 182C 




JMP* 


LOAORBD 


1832 


05F8 C045 


0VRBL2 


LDA- 


LASTAD 


1833 


05F9 09FE 




INA 


-1 


1834 


05FA 60C0 




STA- 


B5 


1835 


05FB E091 




LOQ- 


TSACTV 


1836 


05FC C2A5 




LOA- 


TSIAAO-l,Q 


1837 


05FD 6045 




STA- 


LASTAO 


1838 


05FE E048 




LDQ- 


OVFWA 


1839 


05FF 0832 




AAQ 


Q 


1840 


0600 40BO 




STQ- 


82 


1841 


0601 .0842 




CLR 


Q 


1842 


0602 40C2 




STQ- 


B7 


1843 


0603 1806 




JMP» 


TSTFNO 


1845 


0604 0844 


TSTCLR 


CLR 


A 


1846 


0605 OOFE 




INQ 


-1 


1847 


0606 6600 




STA- 


(82>,Q 


1848 


0607 0141 




SQZ 


1 


1849 


0608 18FC 




JMP* 


TSTCLR+i 


1850 


0609 40BC 


TSTFNO 


STQ- 


Bl 


1851 


060 A 180F 




JMP* 


CKFLAGS 


1853 


060B 0117 


ILLBLK 


SAN 


XFRBLK-»-l 


1854 


060C E446 




LOQ- 


(INBI1) 


1855 


0600 COBE 




LDA- 


B3 


1656 


060E 60C1 




STA- 


86 


1857 


060F 0A11 




ENA 


ILLRBO 


1858 


0610 40BF 


STB7B3 


STQ- 


B4 


1859 


0611 60BE 




STA- 


B3 


1860 


0612 1806 




JMP» 


CKFLAGS-i 


1862 


0613 OUF 


XFRBLK 


SAN 


LOADRBD-»-i 


1863 


0614 COCO 




LDA- 


85 


1864 


0615 0901 




INA 


1 


1865 


0616 6045 




STA- 


LASTAD 


1866 


0617 0804 




SET 


A 


1867 


0618 60C2 




STA- 


B7 


1868 


0619 COBE 


CKFLAGS 


LOA- 


83 


1869 


061A 0104 




SAZ 


CKTFLG-»-l 


1870 


0618 E0C1 




LDQ- 


B6 


1871 


061C 40FF 




STQ- 


I 



OVERLAY MARKER BLOCK READ. 
RECORD LIBRA Y POSITION 
WITH OVERLAY DATA FWA* 
OVERLAY/TEST NUMBERS. 



AZERO * LOAO OPERATION 

CONSIDER OVRBLK AS XFRBLK. 

SKIP ON COMPARE, OR 
CONTINUE SEARCH. 



SAVE LASTAO. RESTORED IN XFRBLK 
POINTS TO TEST IN CONTROL 
RELOCATION FACTOR 
USEO FOR RELOCATION IN RBD8LK 
UNBIASEO OVRLAY FHA-TEST LENGTH. 

BIASED FHA OF OVERLAY AREA. 



CLEAR LOAO AREA. 



INDICATE TEST FOUND 

REPORT ANY RECORD LOAO ERRORS. 



IGNORE ERROR ON SEARCH OPERATION 

PREPARE STOP INFO- 

A3 = BLOCK 10 (FIRST WORD) 
Q3 = LOAO ERROR CODE IF ANY. 

(ERROR COOEI 

FLAG ERROR WITH CODE. 

REPORT ERROR, TERMINATE LOAO. 



AZERO = LOAO OPERATION, XFRBLK 

IS RBD LOAO TERMINATING BLOCK. 
(PROJECTED TEST LHA +11 
RESET TEST LOAD AREA FWA. 

SET TERMINATE FLAG. 



ERROR FLAG SET. 

PREPARE STOP INFO A3/Q3. 
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r \ 



o o o 



1872 
1873 
1874 
1875 
1876 
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061D EOBF 
061E 5428 
061F C0C2 

0620 8102 

0621 1C01 



o o o o c 
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LDQ- 
RTJ- 
CKTFLG LDA- 
SAZ 
JMP* 



OATEt 12/17/74 



Bit 

(SMERROR) 

B7 

L0ADRB0-*-i 

CLOCONT) 



REPORT ANY LOAD ERRORS. 

CHECK TERMINATE FLAG- 
CONTINUE LOAD IF CLEAR. 
EXIT LOAD CONTROLLER IF SET. 



1878 
1879 
1880 
1681 
1882 
1683 
1884 
1885 

1887 
1866 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
19Q9 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 



0622 
0623 
0624 
0625 
0626 
0627 
0626 
0629 
062A 
0628 
062C 
062D 
062E 
062F 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
063 A 
063B 
063C 
063D 
063E 
063F 
0640 
0641 
0642 
0643 
0644 
0645 



0000 
5409 
0846 
604A 
60 BE 
60BF 
60C1 
60C2 
587E 
C0BC 
0117 
C08E 
0105 
09E8 
0132 
C0C2 
0101 
18E5 
C446 
8000 
2A48 
0115 
C056 
A074 
0119 
COBC 
184A 
88F8 
09AF 
0842 
0FE3 
0112 
COBC 
1A01 
180E 
1807 



» » 

» LOAD CONTROL * 

• USES Bi,B2,B3,B4,B5,B6,B7 * 
» ENTER WITH Bl a TEST NUMBER FOR LOAD • 

♦ ENTER WITH Bl = FFFF FOR LIB LIST ♦ 

* • 



LOCONT 
L0A0R80 



LORBOl 



LDRB02 
LDRB03 

HEXCOR 



NOTHCB 



RBOTAB 



NUM 
RTJ- 
CLR 
STA- 
STA- 
STA- 
STA- 
STA- 
RTJ» 
L DA- 
SAN 
LOA- 
SAZ 
INA 
SAM 
LDA- 
SAZ 
JMP* 
LDA- 
EOR- 
ALF 
SAN 
LDA- 
AND- 
SAN 
LDA- 
JMP* 
EOR» 
INA 
CLR 
LLS 
SAN 
LOA- 
JMP» 
JMP* 
JMP* 



SO 

CTTVBZY) 

A,Q 

LASTOV 

B3 

B4 

B6 

B7 

LOADER 

Bl 

LORBD3-»-l 

B3 

LDRBD3-»-l 

-HTPE 

LDRBD2~»-i 

B7 

L0RBD3-*-l 

CKFLAGS 

UN8I1I 



i,»H 

NOTHCB-»-l 

SMHCNT 

BIT09 

RB0TAB-»-i 

Bl 

RBDBLK 

HEXCOR 

-$50 

Q 

3 

RBDTAB-»-l 

Bl 

RBDTABtQ 

LOADRBD 

NAHBLK 



JSTOPX HSG BFR SHARES LOR BFR) 

CLEAR- 
OVERLAY POSITION FLAG, 
ERROR CODE FLAG. 
ERROR STATUS FLAG, 
ERROR COUNT FLAG, 
LOAD TERMINATE FLAG. 



LOAD OR SEARCH OPERATION- 
LOAD, CHECK ERROR FLAG- 
AZERO = NO ERROR. 
IF CODE LOWER THAN MTPE, REPORT, 
THEN ATTEMPT RECORD RELOAD. 
IF MTPE OR MORE, CHECK TERMINATE 
FLAG FOR SUCCESSFUL LOAD. 
REPORT ERROR, RETRY OR ABORT. 
CHECK RBD BLOCK TYPE. 



SKIP IF NOT HEX CORRECTION BLOCK 
OR CHECK SMM PARAMETER WORD. 

SKIP TO IGNORE EDITED PROG MOOS. 

LOAD »H AS RBD DATE 



IGNORE NON RBD-TYPE BLOCKS. 
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DATE! 12/17/7* 



1923 


06*6 18*0 


JHP* 


RBDBLK 


192* 


06*7 1801 


JMP* 


CKFLAGS 


1925 


06*8 18C2 


JMP* 


ILLBLK 


1926 


06*9 18C1 


JMP* 


ILL8LK 


1927 


06*A 18C8 


JMP* 


XFRBLK 


192S 


06*B 18A1 


JMP» 


OVRBLK 


1929 


06*C 0113 NAHBLK SAN 


NAKCOMP-»-l 


1930 


06*0 08*2 


CLR 


Q 


1931 


06*E 0A12 


ENA 


ttOXFR 


1932 


06*F 18G0 


JMP* 


STB7B3 


1933 


0650 A081 NAMCOMP AND- 


HOOFF 


193* 


0651 5*0 A 


RTJ- 


IHEXASC1 


1935 


0652 0CO6 


ENQ 


S6 


1936 


0653 86*6 


EOR- 


(INBI1),Q 


1937 


065* 0101 


SAZ 


1 


1938 


0655 18C0 JNPLOR JHP» 


LOAORBD 


1939 


0656 COBC 


LOA- 


Bl 


19*0 


0657 A07F 


AND- 


H0F00 


19*1 


0658 0101 


SAZ 


CORCHK-*^l 


19*2 


0659 1886 


JMP* 


LORCHK 


19*3 


065A 0C03 CORCHK ENQ 


3 


19** 


065B £6*6 


LOQ- 


«INBI1)*Q 


19*5 


065C *08B 


STQ- 


BO 


19*6 


0650 C0*5 


LDA- 


LASTAO 


19*7 


065E 0832 


AAQ 


Q 


19*8 


065F OOFE 


INQ 


-1 


19*9 


0660 *0CO 


STQ- 


B5 


1950 


0661 5*QC 


RTJ- 


(RELPOS) 


1951 


0662 0121 


SAP 


1 


1952 


0663 1813 


JMP* 


NOGO 


1953 


066* EOCO 


LOQ- 


B5 


195* 


0665 C0*6 


LDA- 


INBI1 


1955 


0666 5*0C 


RTJ- 


(RELPOS) 


1956 


0667 012E 


SAP 


NOGO-*-l 


1957 


0668 C0*7 


LDA- 


LOLCORE 


1958 


0669 B087 


EOR- 


H7FFF 


1959 


066A 0103 


SAZ 


SKIPOK-*-* 


1960 


066B E0*7 


LDQ- 


LOLCORE 


1961 


066C COCO 


LOA- 


B5 


1962 


066O 5*0C 


RTJ- 


(R&POS) 


1963 


066E 012C SKIPOK SAP 


COR£OK-*-l 


196* 


066F C0*5 


LDA- 


LASTAD 


1965 


0670 013A 


SAH 


COREOK-*-l 


1966 


0671 C07A 


LDA- 


BIT15 


1967 


0672 60*5 


STA- 


LASTAO 


1968 


0673 E090 


LOQ- 


TSINIT 


1969 


067* 62A6 


STA- 


TSIAAOtQ 


1970 


0675 1 8E* 


JMP* 


CORCHK 


1971 


0676 EOBC NOGO LDQ- 


Bl 


1972 


0677 C0*5 


LDA- 


LASTAO 


1973 


0678 60C1 


STA- 


B6 


197* 


0679 0A10 


ENA 


NOMOCOR 


1975 


067A 1895 


JMP* 


ST87B3 



(Q3=BZS8LK, 
(Q*sENTBLK. 
(Q5*EXTBLK« 



ZEROED IN NAMBLK) 
CONSIDERED ILLEGAL) 
CONSIOEREO ILLEGAL) 



AZERO = TNO NAMBLKS IN TEST. 

(CONSIDERATION FOR CARO INPUT) 
IGNORE OVERLAY NUMBER 
CONVERT ID NUMBER TO ASCII CODE. 

COMPARE WITH NAM BLOCK NUMBER 



CHECK FOR OVERLAY SEARCH 
NOT OVERLAY SEARCH 
OVERLAY SEARCH OPERATION 



SAVE TEST LENGTH, 
TEST LOAD ADDRESS 
PROJECTED TEST LHA*1 TO Q 

SAVE TEST LMA 
FHA * LHA 9 
ANEG = YES 

LHA TO Q 

INPUT BUFFER FHA TO A 

INBI1 * LHA 3 

ANEG = YES X INBI1 * TEST * FHA 

CONSIDER A DUAL BANK 1700X 

IS BANK FULL 3 
AZERO a YES. CONTINUOUS MEMORY. 
NO, ADDITIONAL CHECKS NECESSARYX 

BKO LMA = OR * TEST LWA 3 

APOS = YES. 

IS FHA IN BK1 3 

ANEG * YES. 

NOT IN CONTIGUOUS MEM. 



INSUFFICIENT LOAD CORE* 

REPORT AND RETURN TO CALLER. 

(ERROR CODE) 
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1976 
1977 
1978 
197.9 
198,0 
1981 
1982 
1983 
1984 
198S 



067B 
067C 
0670 
067E 
067F 
0680 
0681 
0682 
0683 
0684 
0885 



0C1D 
C646 
A06B 
E045 
40BD 
0101 
0C00 
4814 
EOBB 
1800 
FF7E 



COREOK 



PAGE 


43 


ENQ 


29 


LOA- 


(iNBii),q 


AND- 


BITOO 


LDQ- 


LASTAD 


STQ- 


B2 


SAZ 


1 


ENQ 





STQ» 


RBD0O4 


LDQ- 


BO 


JHP 


TSTCLR 



OATEI 12/17/71* 



NEGATE RELOCATION IN RBO UNPACK 
ROUT IKE 3 CHECK LAST WORD OF 
NANBLK COMMENTS. 
(YES/NO = ASCII 1/0) 



TEST LENGTH TO Q« 
CLR TEST LOAO AREA 



1987 
1988 
1989 
1990 
1991 
1992 

199*1 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
20 04 
2005 
20 06 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 



0686 
0687 
0688 
0689 
068A 
06BB 
068C 
0680 
068E 
068F 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
069A 
069B 
069C 
0690 
069E 
069F 
06 A 
06A1 
06A2 
06A3 
06A4 
06A5 



8101 
189B 
0C01 
40FF 
40BB 
C546 
E746 
F045 
40BO 
0FC4 
0088 
EOBB 
E746 
0FC3 
0122 
F000 
0000 
4460 
OFCO 
0121 
1898 
OOBO 
EOBB 
ODFB 
0141 
18EF 
EOFF 
0O05 
40FF 
C546 
0C01 
40BB 



* » 

* RBO UNPACK ROUTINE » 

* USES B0.B2 TRANSIENTLY ♦ 

* ♦ 



RBOBLK 



RBD001 
RBO003 



RBO 004 
RBD005 



RBO0 07 



RBD009 



SAZ 

JMP» 

ENQ 

STQ- 

STQ- 

LOA- 

LOQ- 

ADQ- 

STQ- 

ALS 
RAO- 
LDQ- 

LDQ- 
ALS 
SAP 
ADQ- 
NUM 
STQ- 
ALS 
SAP 
JHP» 
RAO- 
LDQ- 
INQ 
SQZ 
JMP» 
LDQ- 
INQ 
STQ- 
LOA- 
ENQ 
STQ- 



LOAORBD 

1 

I 

BO 

lINBXlltl 

IINBID.B 

LASTAO 

B2 



BO 
BO 
(INBZDtB 
3 

RB0005-»-l 



(D2> 
13 

RB0007-*-! 
L0RB02 (=CKFLAGS> 
B2 
BO 
-$4 

RB0009-»-i 
RBO001 
I 
5 
I 

(INBIl)tl 
1 
BO 



LOAD OR SEARCH OPERATION- 
IGNORE RECORD IF NOT LOAD. 



SET SUB-BLOCK TO 1 
RELOCATIOH BYTE 
ORIGIN ADDRESS 
ADD RELOCATION FACTOR 
RESET CURRENT ADDRESS COUNTER 
POSITION RELOCATION BYTE 

INCREMENT SUB-BLOCK WORD COUNT 



LOAO OATA WORD 



RELOCATION NEEDED- SKIP IF NO, 

YES 

(VALUE PLUGGEO IN NAMBLK) 

NO - STORE WORO IN PROGRAH 

LAST WORO IN BLOCK 
EXIT RBO PROCESSOR- 
INCREASE CURRENT ADDRESS 
LOAO SUB-BLOCK WORD COUNTER 

IS THIS SUB-BLOCK COMPLETE 
NO-GET NEXT DATA 



INCREMENT SUB-BLOCK ORDINAL 
LOAO RELOCATION BYTE 

SET SUB-BLOCK COUNTER TO 1 
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DATEt 12/17/7*1 



2026 06A6 18EA 



JHP* 



RBD0Q3 



2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 

2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2846 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 

2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 



06A7 
06 A 8 
06A9 
06AA 
06AB 
06AC 
06AO 
06AE 
06AF 
06B0 
06B1 
06B2 
0683 
06B4 
06B5 
06B6 
0637 
06B8 
06B9 
06BA 
06BB 
06BC 
06BD 
06BE 
06BF 
06CO 
06C1 
06C2 
06C3 
06C4 
06C5 
06C6 
06C7 
06C8 
06C9 
06CA 
06CB 
06CC 
06CD 
06CE 



0000 
0000 
E057 
OA01 
03FE 
0O01 
C8F9 
0FC7 
8075 
OBOO 
03FE 
02FE 
A06E 
684C 
0101 
0AB8 
094C 
OBOO 
03FE 
E057 
COBC 
0123 
COSD 
0111 
1620 
COOO 
FF5F 
60FF 
0864 
8046 
70SB 
OBOO 
02FE 
OFCE 
0121 
18FC 
C073 
03FE 
01A0 
0500 



» » 

* MAGNETIC TAPE LOADER » 

* READ AND ASSEMBLE ONE RBO RECORD * 

* USES BQ,B2 TRANSIENTLY* 83,B4«B6, 87 FOR INTRA- ♦ 

* LOAD CONTROL COMMUNICATION. ♦ 

* » 



MTUNIT 
LOADER 



MTL0R1 



MTLDR3 



MTLDR4 



MTLDR5 
MTLDR6 



NUM 

NUM 

LDQ- 

ENA 

OUT 

INQ 

LDA» 

ALS 

AOD- 

NOP 

OUT 

INP 

AND- 

STA» 

SAZ 

ENA 

INA 

NOP 

OUT 

LDQ- 

LDA- 

SAP 

LDA- 

SAN 

JMP» 

LDA 

STA- 

TCA 

ADD- 

SPA- 

NOP 

INP 

ALS 

SAP 

JMP* 

LOA- 

OUT 

SOV 

II N 






EQUIP 
1 

-1 

1 
MTUNIT 
7 

BIT10 


-1 
-1 

BIT03 
FLAG7T 
1 

S-fifC 
J4C 


-1 

EQUIP 
Bl 
3 

B2 
1 

MTLDRH 
sN-160 

I 

A 

IN 811 

BO 



-1 

14 

MTLDR6-»-l 

MTL0R4 

BIT08 

-1 





fUSEO IN EDIT} 
MT EQUIP ADDRESS 
CLEAR CONTROLLER 



SELECT UNIT. 

INPUT STATUS 2. 

MASK OFF 7-TRACK STATUS BIT. 



AZERO « 9 TRACK. 



MT EQUIP ADDRESS 

LIB LIST a 
ANEG = YES 

1ST PASS LIB LIST - REWIND LIB 



OVERFLOW 

CHECK. 
INPUT STATUS 1. 

WAIT NOT BUSY *»« 

START READ MOTION. 

LOCKOUT INTERRUPTS OURING READ 
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2076 


06CF 0OFE 




INQ 


-1 




2077 


0600 08<»4 


MTL0R7 


CLR 


A 




2078 


0601 020F 




INP 


MTL0R9-»« 


•1 


2079 


0602 7568 




SPA- 


(BO), I 




2080 


06D3 COFF 




LOA- 


I 




2081 


0604 0901 




INA 


1 




2082 


0605 0118 




SAN 


HTLDR8-»- 


-1 


2083 


0606 0800 




NOP 







2084 


0607 0400 




EIN 







2085 


06O8 E057 


HTL07A 


WOQ- 


EQUIP 




2086 


0609 02FE 




INP 


-1 




2087 


06DA 0FCE 




ALS 


14 




2088 


0608 0121 




SAP 


HTLD7B*»- 


■1 


2089 


Q6DC 18FB 




JMP» 


HTL07A 




2090 


0600 182A 


MTL07B 


JMP» 


MTLD16 




2091 


06OE 6 OFF 


HTLOR8 


STA- 


I 




2092 


06OF 18F0 




JHP» 


MTL0R7 




2093 


06E0 0B00 




NOP 







2094 


06E1 0D01 


MTLOR9 


INQ 


1 




2095 


06E2 02FE 




INP 


-1 




2096 


06E3 6806 




STA* 


SAVIT 




2097 


06E4 A06F 




AND- 


Bim 




2098 


06E5 0111 




SAN 


MTLDli-*-l 


2099 


06E6 18E8 




JMP» 


HT LOR 7-1 




2100 


06E7 0<»00 


MTLD11 


EIN 







2101 


06E8 C000 




LDA- 







2102 


06E9 0000 


SAVIT 










2103 


06EA 0FC4 




ALS 


4 




2104 


06EB 0123 




SAP 


HTLDPE-*- 


•1 


2105 


06EC C075 


MTLORH 


LDA- 


BIT10 




2106 


Q6ED 03FE 




OUT 


-1 




2107 


Q6EE 1801 




JHP* 


HTLDR3 




2108 


Q6EF 0FC6 


HTLDPE 


ALS 


6 




2109 


06F0 012E 




SAP 


MTL015-*- 


-1 


2110 


06F1 D0C1 




RAO- 


B6 




2111 


06F2 C8F6 




LDA» 


SAVIT 




2112 


06F3 60BF 




STA- 


B4 




2113 


06F4 OA17 




ENA 


HTPE 




2114 


06F5 6QBE 




STA- 


B3 




2115 


06F6 C0C1 




LDA- 


B6 




2116 


06F7 09F7 




INA 


-8 




2117 


06F8 0104 




SAZ 


HTLD14-»- 


•1 


2118 


06F9 COOO 
06FA 0180 


MTBS 


LDA 


= N$18Q 




2119 


06FB 03FC 




OUT 


HTBS-*-l 




2120 


06FC 18C3 




JMP» 


MTL0R3 




2121 


08FO 0A17 


MTLD14 


ENA 


MTPE 




2122 


06FE 60C2 




STA- 


B7 




2123 


06FF COOO 


HTLD15 


LDA- 







2124 


0700 0000 


FLAG7T 


NUH 







2125 


0701 0116 




SAN 


MTLD13-*- 


■1 


2126 


0702 E057 




LDQ- 


EQUIP 




2127 


0703 0O01 




INQ 


1 





OATEI 12/17/74 



SET 0*0 
READ DATA. 

SKIP IF BUFFER NOT EXCEEOEO 
ENABLE INTERRUPTS, READ ABORTED 

WAIT NOT BUSY 

ABORT LOAO IF BUFFER EXCEEOEO 

READ NEXT FRAME 



STATUS INPUT 
SAVE STATUS 

SKIP IF EOF 
NO 
ENABLE INTERRUPTS, READ COMPLETE 



CHECK FOR FILEMARK 
SKIP IF NO FILE MARK. 

REWIND TO LOAO POINT 

CHECK TOR ALARM 

SKIP = LOAD OK. 

PARITY ERROR, BUMP ERROR COUNT. 

GET STATUS BACK 

ERROR STOP A3«LAST FAULTY STATUS 

(ERROR CODE) 



AZERO=7 RETRIES. ABORT RECOVERY. 



BACKSPACE ONE RECORD. 

RETRY. 

f ERROR CODE I 

SET TERMINATE FLAG. 

C NON-ZERO * 7 TRACK) 

PACK DATA BEFORE EXIT IF 7-TRACK 
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2128 


0704 0A01 


ENA 


1 


2129 


0705 0B00 


NOP 





2130 


0706 03FE 


OUT 


-1 


2131 


0707 1CA0 HTLD16 JMP» 


C LOADER) 


2132 


0708 C046 MTLD13 LDA- 


ZNBI1 


2133 


0709 60B8 


STA- 


BO 


2V3k 


070A 60FF 


SIA- 


I 


2135 


070B 093C 


ZNA 


60 


2136 


070C 60BO 


STA- 


B2 


2137 


0700 0842 MTLD17 CUR 


Q 


2138 


070E C4BB 


LDA- 


(BO) 


2139 


070F 0FC6 


ALS 


6 


2140 


0710 OOBB 


RAO- 


BO 


2141 


0711 B4BB 


EOR- 


(BO) 


2142 


0712 0FC4 


ALS 


4 


2143 


0713 0FE2 


LLS 


2 


2144 


0714 OOBB 


RAO- 


BO 


2145 


0715 B48B 


EOR- 


(BO) 


2146 


0716 0FE6 


LLS 


6 


2147 


0717 OOBB 


RAO- 


BO 


2148 


0718 B48B 


EOR- 


(BO) 


2149 


0719 0FE6 


LLS 


6 


2150 


071A OOBB 


RAO- 


BO 


2151 


071B B4BB 


EOR- 


(BO) 


2152 


071C 0FE2 


LLS 


2 


2153 


071D *»4FF 


STQ- 


(I) 


2154 


071E 0842 


CLR 


Q 


2155 


071E DOFF 


RAO- 


I 


2156 


0720 0FE4 


LLS 


4 


2157 


0721 OOBB 


RAO- 


BO 


2158 


0722 B4BB 


EOR- 


(BO) 


2159 


0723 0FE6 


LLS 


6 


2160 


0724 OOBB 


RAO- 


BO 


2161 


0725 B«»BB 


EOR- 


(BO) 


2162 


0726 0FE6 


LLS 


6 


2163 


0727 OOBB 


RAO- 


BO 


2164 


0728 BdBB 


EOR- 


(BO) 


2165 


0729 44FF 


STQ- 


(I) 


2166 


072A OOFF 


RAO- 


I 


2167 


072B 64FF 


STA- 


(I) 


2168 


072C OOFF 


RAO- 


I 


2169 


0720 COFF 


LOA- 


I 


2170 


072E BOBO 


EOR- 


82 


2171 


072F 0102 


SAZ 


MTLD18-»-l 


2172 


0730 OOBB 


RAO- 


BO 


2173 


0731 180B 


JMP* 


MTL017 


2174 


0732 1804 MTLD18 JMP* 


MTLD16 


2175 


0733 0014 


BSS 


(2 6) 



(BUFFER FHA) 



(MAXIMUM 16-BIT WORD COUNT 

IN RBO BLOCK) 

FRAME 1*8X. 

UPDATE FRAME ADDRESS. 
FRAME 2+8X. 



FRAME 3+8X. 

FRAME 4+8X. 

FRAME 5+8X. 

WORD 1+3X. 

UPOATE HORO ADDRESS. 

FRAME 6+8X. 

FRAME 7*8X, 



FRAME 8*8X. 
WORD 2+3X. 

HORO 3+3X. 



(MAXIMUM HORO AOORESS) 
PACKING COMPLETE- 
NO. 

YES. EXIT LOADER 
ROOM FOR LONGEST LOADER 



2177 0747 8D0A TYPBTL NUM 



S800A 
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2178 


0748 
0749 
074A 
074B 
074C 
074D 
074E 
074F 


4255 

494C 
4420 
5445 
5354 
204C 
4953 
5420 




ALF 


X f BUILO TEST LISTX 


2179 


0750 


800 A 


PREEXS 


NUH 


$8D0A 


2180 


0751 
0752 
0753 
0754 
0755 
0756 
0757 
0758 
0759 
075A 
0758 
075C 
0750 
075E 
075F 
0760 


2050 
5245 
2045 
5845 
4355 
5449 
4F4E 
2043 
4F52 
5245 
4354 
494F 
4E20 
5354 
4F50 
2020 




ALF 


Z. PRE-EXECUTION CORRECTION STOP Z 


2181 


0761 


800A 


PREEXO 


NUH 


S800A 


2182 






*M****Vf**f»«**9*****f**9«Vf9**V**fV««(|V»«««*««>VV«S««»9»V«*V«««««fV*««* 


2183 






» 




» 


2184 






* 




PROTECT PROCESSOR PREPARATION * 


2185 






* . 




SET HONITOR AND AUTOLOAD ADDRESSES » 


2186 






* 




CLEAR HONITOR ENTRY POINTS • 


2187 






» 




CLEAR COMMON LOW CORE * 


2188 






♦ 




* 


2189 






**»V*«««#«*«««V«9«*«f****««««4f«**«**VV***««V««««****«*V*«t«V«V«»f*«4i««9« 


2190 


0762 


0000 


SPP000 


NUH 





2191 


0763 


0842 


SPB1 


CLR 


Q 


2192 


0764 


0700 


SPB2 


CPB 





2193 


0765 


0001 




INQ 


1 PTC2 


2194 


0766 


0141 




SQZ 


SPB4-»-i 


2195 


0767 


18FC 




JHP* 


SPB2 


2196 


0768 


01A0 


SPB4 


SOV 


KILL THE OVERFLOW PTC2 


2197 


0769 


E044 




LOQ- 


LASTVALUE PTC2 


2198 


076A 


C036 




LDA- 


AUTOPP GET THE 08O1E CONSTANT PTC2 


2199 


076 B 


ODFE 


SPB5 


INQ 


-1 PROTECT 


2200 


076C 


0600 




SPB 


AUTOLOAD 


2201 


076O 


0830 




AAQ 


AND 


2202 


076E 


01A1 




SOV 


SPB6-»-l HONITOR 


2203 


076F 


18FB 




JHP* 


SPB5 AREA 


2204 


0770 


OCOO 


SPB6 


ENQ 


CONTROL-1 


2205 


0771 


0814 


SPB7 


TRQ 


A A,Q = ENTRY POINT ADDRESS-1. 


2206 


0772 


E201 




LOQ- 


1,Q ENTRY POINT TO Q. 


2207 


0773 


0700 




CPB 


UNPROTECT ENTRY POINT 


2206 


0774 


0901 




INA 


1 INCREHENT ENTRY POINT ADDRESS. 
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2209 


0775 0822 




TRA 


Q 


AtQ = NEXT ENTRY POINT ADDRESS. 


2210 


0776 090B 




INA 


-SELIN-1 




2211 


0777 0101 




SAZ 


SPB8-*-l 


EXIT 


2212 


0778 18F8 




JHP* 


SPB7 




2213 


0779 E03D 


SPB8 


LDQ- 


XCOMUS 


PTC2 


2214 


077A C088 




LDA- 


H7F00 




2215 


0778 0700 


SPB9 


CPB 





CLEAR COMMON COMMUNICATION AREA 


2216 


077C 0O01 




INQ 


1 




2217 


077O 0830 




AAQ 







2216 


077E 01A1 




SOV 


SPBEND-*-l 




2219 


077F 18FB 




JMP» 


SPB9 




222,0 


0780 1CE1 


SP8END 


JMP* 


tSPPOQO) 




2221 




*»*««**•****«***«*** **♦#*♦*»»♦»»*»♦♦»♦♦♦»»»♦#♦*»»♦»»♦»••»»»»♦ #»*»tnn?**»* 


2222 




* 






* 


2223 




* 




CHECK FOR TTY 


INPUT SELECTION * 


2224 




* ' 






* 


2225 




f«f*4»«**M»*»*f****»*Mf«f*«*f»***»V»*********»**«V*M»»«******«*««***» 


2226 


0781 0000 


INTTY 


NUM 







2227 


0782 5800 

0783 FE26 




RTJ 


TTBUSY 


HAIT MESSAGE END BEFORE STOP. 


2228 


0784 680F 




STA* 


TTEMP 




2229 


0785 480F 




STQ» 


TTEMP+1 




2230 


0786 0A40 




ENA 


S40 


CBIT06 « SMM PARAMETER BIT 


2231 


0787 A800 

0788 F8CD 




AND 


SMMCNT 


FOR TTY INPUT SELECTION) 


2232 


0789 0114 




SAN 


INTTY2-*-l 


SKIP IF TTY INPUT SELECTED 


2233 


078A G809 


INTTY1 


LDA* 


TTEMP 




2234 


078B E809 




LDQ* 


TTEMP+1 




2235 


078C 0000 




SLS 





REGISTER OISPLAY/ENTRY. 


2236 


078D ICF3 




JMP* 


CINTTY) 


EXIT WITH NEW REGS. 


2237 


078E E091 


INTTY2 


LDQ- 


TSACTV 




2238 


078F C2AF 




LOA- 


TSTJP-1,Q 


GET ACTIVE STOP-JUMP WORD 


2239 


0790 A073 




ANO- 


BIT08 


LOOK FOR OMIT TYPEOUTS 


2240 


0791 0106 




SAZ 


TELAQ-*-l 


SKIP IF NOT SET TO TTY PACKAGE 


2241 


0792 18F7 




JMP* 


INTTY1 


USE REGISTER DISPLAYS 


2242 


0793 0001 


TTEMP 


NUM 


1 




2243 


0794 0001 


ENDMONi 


NUM 


1 




2244 


0795 0002 




NUM 


2 




2245 


0796 0003 




NUM 


3 




2246 


0797 0004 




NUM 


4 




2247 




*««***** «»«*?« ****»» »*♦»*»»»•»*#♦ »***»»»♦»»»»♦ »»»»*»*»»•»»»»» »*#»»»**»* 


2248 




* 






* 


2249 




* 




TELETYPE INPUT ROUTINE * 


2250 




* 




EXPECTS TO BE ENTERED WITH A+Q » 


2251 




* . 




CONTAINING PARAMETERS TO BE CHANGEO * 


2252 




* 




UPON EXIT A + Q 


WILL HAVE OPERATORS * 


2253 




* 




REACTION TO PARAMETERS OFFERED • 


2254 




* 




INPUT MAY BE IN 


* 


2255 




* 




HEX- INDICATED BY NO PREFEX * 


2256 




* 




DEC- PREFEXED 


BY N, WITH ANY COMBINATION OF 0-9 * 


2257 




* 




BIT- PREFEXED 


BY S- IE S» It 12, 15 ETC * 


2258 




* 






* 


2259 




******************** »♦»♦»»♦*♦»♦»»»»»#*♦*»*** »» #»»♦»*»**♦♦•»»»» »»**»♦♦♦»» 
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2260 


0798 C0FF 


TELAQ 


LDA- 


I 


2261 


0799 680B 




STA* . 


EXITEX+4 


2262 


079A 5800 
079B 00EA 




RTJ 


HES2 


2263 


079C 0844 




CLR 


A 


2264 


0790 6800 
079E 011F 




STA 


SETPFG 


2265 


079F 1827 




JMP* 


MES1 


2266 


07AO 3*109 


EXITEX 


RTJ- 


ITTYBZY) 


2267 


07A1 0844 




CLR 


A 


2268 


07A2 54C5 




RTJ- 


(TTOTTI) 


2269 


07A3 CO00 




LDA- 





2270 


07A4 0000 




NUH 





2271 


07A5 60FF 




STA- 


I 


2272 


07A6 C800 
07A7 0116 




LDA 


SETPFG 


2273 


07A8 0102 




SAZ 


2 


227ft 


07A9 1800 
07AA OOFB 




JMP 


SETPGO 


2275 


D7AB E8E8 




LDQ* 


TTEMP+1 


2276 


Q7AC C8E6 


EXTEX1 


LDA* 


TTEHP 


2277 


07AO 1C03 




JMP* 


UNITY) 


2278 


07AE 0844 


POINT 


CLR 


■ A 


2279 


07AF 60FF 




STA- 


I 


2260 


07B0 5802 


EXREAD 


RT J» 


READ 


2281 


0781 181F 




JMP* 


ANVL 


2282 


07B2 0001 


READ 


NUM 


1 


2283 


07B3 EOOO 
0784 0091 




LOO 


*NS91 


2284 


0785 C074 




LDA- 


BIT09 


2285 


07B6 5409 




RTJ- 


CTTYBZV) 


2286 


07B7 03FE 




OUT 


-1 


2287 


07B8 02FE 


STAT 


IMP 


-1 


2288 


07B9 A06E 




AND- 


BIT03 


2289 


07BA 0101 




SAZ 


1 


2290 


07BB 18FC 




JMP* 


STAT 


2291 


07BC ODFE 




INQ 


-1 


2292 


07BO 8B00 




NOP 




2293 


07BE 02FE 




INP 


-1 


2294 


07BF A000 
07C0 007F 




AND 


= NS7F 


2295 


07C1 6805 




STA* 


TTEMP+4 


2296 


07C2 09 A* 




INA 


-$58 


2297 


07C3 0122 




SAP 


MES1 


2298 


07C4 095B 




INA 


$5B 


2299 


07C5 1CEC 




JMP* 


(READ) 


2300 


07C6 5*i09 


HESi 


RTJ- 


ITTYBZY) 


2301 


07C7 0844 




CLR 


A 


2302 


07C8 6800 
07C9 00F4 




STA 


SETPFG 


2303 


D7GA COOO 
07CB 0804 




LOA 


=XBELL 


2304 


07CC 0C02 




ENQ 


2 



DATE I 12/17/74 



LF/CR TO TTY 



(ENTRY I) 
RESTORE ENTRY I 



MEN Q VALUE 

SET POINTER TO A 
GET FIRST CHAR 
TTY READ CHAR 



SELECT READ HOOE 
WAIT FOR NOT BUST 

STATUS INP 

BUSY* 
YES 

NO 

INP DATA 
CLEAR POSSIBLE PARITY BIT 

SAVE OATA 

CK FOR RUBOUT CHARACTER 

YES- SO SKIP 

EXIT REMO 
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2305 


07CD 


5800 




07CE 


F047 


2306 


07CF 


180E 


2307 


0700 


09F2 


2308 


0701 


0111 


2309 


0702 


18C0 


2310 


0703 


0900 


2311 


070% 


0112 


2312 


0705 


DOFF 


2313 


07D6 


1809 


2314 


07D7 


09E7 


2315 


0708 


0122 


2318 


0709 


C8B0 


2317 


070 A 


182C 


2318 


07OB 


9F8 


2319 


07OC 


0111 


2320 


0700 


18*5 


2321 


07OE 


09FO 


2322 


070F 


0112 


2323 


07E0 


1800 




07E1 


OOCO 


232<i 


07E2 


09FC 


2325 


07E3 


0101 


2326 


07E4 


1814 


2327 


07E5 


1869 



RTJ 



TTYPE 



ANYL 



ANYL1 



ANYL2 



ANYL3 



ANYL4 



ANYL5 



ANYL6 



JMP* 


POINT 


INA 


-$D 


SAN 


ANYL1-*-! 


JMP* 


EXITEX 


INA 


-$22 


SAN 


ANYL2 


RAO- 


I 


JMP* 


EXREAO 


INA 


-$18 


SAP 


ANYL3-*-l 


LDA* 


TTEMP+4 


JMP* 


HEX 


INA 


-7 


SAN 


ANYL4 


JMP* 


DEC 


INA 


-2 


SAN 


ANYL5 


JMP 


SETP 


INA 


-3 


SAZ 


ANYL6-*-l 


JMP* 


ER1 


JMP* 


BIT 



TYPEOUT BELL. QUESTION MARK, SPACES 

GO TO EXEC POINTER RESET 

=CR 
CR HAS BEEN OECTEO 



SLASH OETECTED 

GO TO EXEC FOR ANOTHER CGAR 



HEX NUMBER TO BE PROCESSED 



SET P AODRESS CHECK 



INVALID REQUEST 

SET BIT TO BE PROCESSED 





2329 


07E6 


0001 


SPCK 


NUM 


1 


CHECK FOR / OR CR 




' w - 


2330 


07E7 


09CF 




INA 


-S30 








2331 


07E8 


0132 




SAM 


SPCKlA-*-l 


GO CHECK FOR COMMA 






2332 


07E9 


0930 




INA 


$30 


RESTORE CHAR 




.. 


2333 


07EA 


1CFB 




JMP* 


(SPCK) 


RETURN CHAR IS NOT 


/"CR 




2334 


07EB 


0904 


SPCK1A 


INA 


4 








2335 


07EC 


0112 




SAN 


SPCK1-*-! 


CHEHK FOR COMMA 






2336 


07EO 


09FB 




INA 


-4 








2337 


07EE 


18FA 




JMP* 


SPCK+3 








2338 


07EF 


08F6 


SPCK1 


RAO* 


SPCK 






„. 


2339 


07F0 


09FC 




INA 


-3 








2340 


07F1 


0111 




SAN 


SPCK2-*-l 


CHECK FOR / 






2341 


07F2 


1CF3 




JMP* 


(SPCK) 


CHAR IS A / 






2342 


07F3 


D8F2 


SPCK2 


RAO* 


SPCK 








2343 


07F4 


0922 




INA 


$22 








2344 


07F5 


0101 




SAZ 


SPCK3^*-1 








2345 


07F6 


1802 




JMP* 


ER1 








2346 


07F7 


1CEE 


SPCK3 


JMP* 


(SPCK) 


CR. DETECTEO EXIT 






2348 


07F8 
07F9 


COOO 
07FE 


ER1 


LOA 


= XERMES 
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2349 
23S0 

2351 
2352 
2353 



235(» 
2355 
2356 
2357 



07FA OC07 
07FB 5800 
07FC FD19 
07FD 18B0 
07FE OOOA 
07FF 4552 

0800 524F 

0801 5220 

0802 OOO A 

0803 2020 

0804 073F 

0805 2020 



ERHES 



BELL 



ENQ 
RTJ 

JMP» 

NUN 

ALF 



NUM 
NUH 
NUM 
NUN 



7 
TTYPE 

POINT 
80 DO A 
3, ERR OR 



SO DO A 
$2020 
873F 
82020 



RESTART AT EXPOINTER 



2359 
2360 

2361 
2362 
2363 

2364 
2365 
2366 
2367 

2368 

2369 

2370 
2371 

2372 
2373 
2374 

2375 
2376 
2377 
2378 

2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 

2387 



0806 
0807 
0808 
0809 
080A 
0838 
080C 
08OD 
08DE 
080F 
0810. 
0811 
0812 
0813 
031*» 
0815 
0816 
0817 
0818 
0819 
081A 
0818 
081C 
0810 
081E 
081F 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
082A 
082B 
082C 



0842 
4900 
FF8A 
1807 
58A7 
5800 
FFD9 
1803 
1810 
1811 
EOOO 
3830 
8000 
3000 
5800 
00A9 
18E1 
E900 
FF7A 
OFCC 
0FE4 
4900 
FF76 
18EC 
DOFF 
1890 
1800 
FF7E 
588F 
58C2 
1820 
181*1 
C827 
542B 
18CF 
6900 
FF68 
1800 
FF73 



HEX 



HEXRO 



CLR 
STQ 

JNP» 
RTJ* 
RTJ 



JMP* 

JHP* 

JHP* 

HEXHD LOQ 

EOR 

RTJ 



JHP* 
LDQ TTEMP.I 

ALS 
LLS 

STQ 



Q 
TTEMP.I 

HEXHO 

READ 

SPCK 

HEXHD 
HEXSL 
HEXCR 
»N83030 

=N83000 

CONHEX 

ER1 



12 

4 

TTEMP.I 



JMP* HE SID 

RAO- I 

JMP* EXREAD 

HEXCR JMP EXITEX 



HEXSL 



DEC 



OECCR 



GET FIRST HEX CHARACTER 
CK FOR CR OR SLASH 



SLASH HAS DETECTED 

CR« DETECTED READY EXIT 



INVALID CHAR RET' 
LOAO PREVIOUS ITTERATION 



' HERE BY CONV 



HOVE CHARACTER INTO HORD 



CHANGE POINTER TO Q 
GO BACK TO EXEC READ 



RTJ* 


READ 


RTJ* 


SPCK 


JHP» 


DWDCON 


JMP* 


DECSL 


LDA* 


DTEMP 


RTJ- 


f ASCDEC) 


JHP* 


ER1 


STA 


TTEMP.I 



DEC CR DETECTED 

ASCII TO DECIMAL CONVERSION 



JMP 



EXITEX 
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2388 


0820 0001 


DECHO 


NUH 


1 


2389 


082E EOOO 
082F 3030 




LDQ 


=N$3030 


2390 


0830 8000 

0831 3000 




EOR 


=NJ3000 


2391 


0832 542A 




RTJ^ 


(ASCHEXI 


2392 


0833 18C4 




JMP* 


ER1 


2393 


0834 E819 




LDO* 


DTEMP 


2394 


0835 0FA4 




QLS 


4 


2399 


0836 0874 




EAQ 


A 


2396 


0837 6816 




STA* 


OTEMP 


2397 


0838 1CF4 




JMP* 


fO EC WD) 


2398 


0839 C814 


DECSL 


LDA» 


DTEHP 


2399 


083A 542B 




RTJ- 


CASCOECI 


2400 


083B 18BC 




JHP* 


ER1 


2401 


083C 6900 
0830 FF55 




STA 


TTENPsI 


2402 


083E COFF 




LOA- 


I 


2403 


083F 0102 




SAZ 


2 


2404 


0840 1800 

0841 FF5E 




JMP 


EXITEX 


2405 


0842 DOFF 


DECSL1 


RAO- 


I 


2406 


0843 1803 




JHP* 


HEXSL+i 


2407 


0844 0842 


DHDCON 


CLR 


Q 


2WB 


0845 4808 




STQ* 


DTEMP 


2409 


0846 58E6 


DHO 


RTJ* 


DECHO 


2410 


0847 5800 

0848 FF69 




RTJ 


READ 


2411 


0849 589C 




RTJ* 


SPCK 


2412 


084A 18FB 




JMP* 


DHO 


2413 


084B 18E0 




JMP* 


DECSL 


2414 


084C 18D9 




J MP* 


DECCR 


2415 


0840 0007 


DTEMP 


NUH 


7 


2416 


084E 5800 
084F FF62 


BIT 


RTJ 


READ 


2417 


0850 5895 




RTJ* 


SPCK 


2418 


0851 1803 




JMP* 


BHDCON 


2419 


0852 18A5 




JMP* 


ER1 


2420 


0853 18CC 




JMP* 


HEXCR 


2421 


0854 0842 


BHDCON 


CLR 


Q 


2*22 


0855 48F7 




STQ* 


DTEHP 


2423 


0856 4900 

0857 FF3B 




STQ 


TTEMP.I 


2424 


0858 09O3 




INA 


-$2C 


2425 


0859 0111 




SAN 


1 


2426 


085A 18F4 




JMP* 


BIT+1 


2427 


085B 09FB 


BASM1 


INA 


-4 


2428 


085C 0121 




SAP 


1 


2429 


0850 189A 




JMP* 


ER1 


2430 


085E 09F5 




INA 


-10 


2431 


085F 0131 




SAM 


1 


2432 


0860 1897 




JMP* 


ER1 


2433 


0861 093A 




INA 


$3A 



INVALID CHAR RETURN HERE BY CONV 



PACK WORD 



INVALID CHAR RETURN HERE BY CONV 

CHECK POINTER 

IF POINTER HAS A Q EXIT 

CHANGE POINTER IF AT A 
GO TO EXEC REAC 

CLR DEC TEMPORARY 
ASSEMBLE HORO 
GET ANOTHER WORD 

CHECK WORD FOR /"CR. 
GET ANOTHER WORD 
PROSSES SLASH 
PROSSES CR 
DECIMAL TEHP STORAGE 
BBB8 BIT INPUT CONTROL BBBSBBBB 

CHECK FOR CHAR 



CLEAR DTEHP 



COMMA OETECTED 
YES- GET ANOTHER CHARACTER 
NO 

CJECK OF LESS THAN CEC 
YES 
NO CHECK IF GREATER THAN DEC 

YES 

NO RESUHE CHAR 
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2*3* 


0862 56CA 


RTJ» 


DECHD 


.... 


2*35 


0863 5800 BASM2 RTJ 


READ 






086* FF*D 








2*36 


0865 5880 


RTJ» 


SPCK 




2*37 


0866 180* 


JHP* 


BASH 




2438 


0867 1808 


JHP* 


BSL 




2*39 


0868 5800 


RTJ* 


BITS 




2**0 


0869 18B6 


JHP* 


HEXCR 




2**1 


086A Q9D3 BASN INA 


-$2C 




2**2 


086B 0112 


SAN 


2 


. >.. 


2**3 


086C 5809 


RTJ» 


BITS 




2*** 


0860 18F5 


JHP* 


BASH2 




2**5 


086E 18EC 


JHP* 


BASH1 




2**6 


086F 5806 BSL 


RTJ* 


BITS 




2**7 


0870 COFF 


LDA- 


I 




2**8 


0871 0111 


SAN 


1 




2**9 


8872 OOFF 


RAO- 


I 




2*50 


0873 1800 
087* FF3B 


JHP 


EXREAO 




2*51 


0875 0003 BITS NUH 


3 




2*52 


0876 C806 


LDA* 


OTEMP 




2*53 


0877 5*2B 


RTJ- 


(ASCDEG1 




2*5* 


0878 180B 


JHP* 


BITERR 




2*55 


0879 0822 


TRA 


Q 




2*56 


087A 08** 


CLR 


A 




2*57 


087B 6801 


STA* 


OTEHP 




2*58 


087C CAOO 
087D F7E0 


LOA 


BITOOfO. 




2*59 


087E 8900 
087F FF13 


EOR 


TTEHP,I 




2*60 


0880 6900 

0881 FF11 


STA 


TTEHP.I 




2*61 


0882 1CF2 


JHP» 


fBITSI 




2*62 


0883 1800 BITERR JMP 


ER1 






088* FF73 








2*63 


0885 0000 HES2 NUH 







2*6* 


0886 C800 

0887 FFOB 


LOA 


TTEHP 




2*65 


0888 5*0 A 


RTJ- 


(HEXASC1 




2*66 


0889 *811 


STQ* 


THES+i 




2*67 


088A 6811 


STA* 


THES+2 




2*68 


088B C800 
088C FF07 


LOA 


TTEHP+1 




2*69 


088D 5*0 A 


RTJ- 


(HEXASC1 




2*70 


088E *811 


STQ* 


THES*6 




2*71 


088F 6811 


STA* 


THES*7 




2*72 


0890 5*09 


RTJ- 


CTTYBZY) 




2*73 


0891 COOO 

0892 0899 


LOA 


=XTHES 




2*7* 


0893 EOOO 
089* 8008 


LDQ 


*N$8008 




2*75 


0895 5800 


RTJ 


TTYPE 


■-. 




0896 FC7F 







HAVE CHAR CONVERTED AND PACKED 
GET ANOTHER CHAR 

CHECK FOR ICR) OR (/> 

RCTURN HERE IF NOT 

SLASH OETECTEO 

CR OETECTEO PROCESS LASR DIGIT 



CHECK FOR COHHA 

YES AOO A BIT TO WORD 

GET ANOTHER CHAT 



CHECK POINTER 

HOVE POINTER OT Q IF HAS AT A. 
JHP TO EXEC READ 



BRING UP FROH OTEHP 
ASCII TO DEC CONVERSION 
NOT A LEGAL NUHBER 



COHBINE HITH EXISTING SET 



EXIT BITS 



REPORT STORED PARAHETERS 
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2476 

2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 

2488 

2489 
2490 

2491 
2492 
2493 
2494 
2495 

2496 
2497 
2498 

2499 

2500 

2501 

2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 



0897 
0898 
0899 
089A 
089B 
089C 
0890 
089E 
089F 
08AQ 
08A1 
08A2 
08A3 
08A4 
08A5 
08A6 
08A7 
08A8 
08A9 
08AA 
08AB 
08AC 
08AD 
08AE 
08AF 
08B0 
08B1 
08B2 
08B3 
08B4 
08B5 
08B6 
08B7 
08B8 
06B9 
08BA 
08BB 
08BC 
08BO 



1800 
FF20 
OOOA 
0000 
0000 
202F 
2020 
0000 
0000 
2020 
0804 
681B 
1800 
FFOB 
C800 
FEEC 
6816 
EQOO 
025E 
0844 
6201 
6202 
6203 
EOOO 
0245 
C201 
0106 
COOO 
08B8 
6800 
F9A9 
1800 
F99E 
C800 
F788 
0821 
846 
1<»00 
0000 



JMP 



MESl 



TMES 



08BE 
08BF 
08CO 
08C1 
08C2 
08C3 
08C4 



0000 
60CA 
0FE8 
5818 
1816 
0FC4 
60CB 



SETP 



SETPO 



NUH 


S0O0A 


NUH 





NUH 





NUH 


S2Q2F 


NUH 


32020 


NUH 





NUH 





NUH 


$2020 


SET 


A 


STA» 


SETPFG 


JHP EXREAD 


LOA 


TTEMP 


STA» 


SETPFG 


LDQ 


sXFLGSHR-1 


CLR 


A 


STA- 


1,Q 


STA- 


2«Q 


STA- 


3,0 


LOQ 


=X REPORT- 1 


LDA- 


1*Q 


SAZ 


SETPO 


LOA 


=XSETP0 


STA 


RPTRTN 


JHP 


RPT10 


LOA 


SETHASK 


TRA 


H 


CLR 


A,Q 


JMP- 


CO) 


NUH 






CLEAR ROUTINE ACTIVE FLAGS 
IN INTERRUPT ERROR REPORTED 



SSTABLISH HASK REGISTER 
HHEN USING P OPTION 



SETPFG 

»««*«***»«««»******* ♦♦•♦»♦»♦♦»*** »*****»»#»*»»♦»♦»»»*»» *♦♦***»*»*»♦**♦♦» 

*♦♦*♦ CONVERT ASCII TO HEXADECIMAL NUHBER •»•»» 

* ENTER WITH CQA)* FOUR ASCII CHARACTERS * 

* EXIT WITH (Q) =0 AND CA> = HEX EQUIV AT P+2 » 

♦ EXIT AT P*l IF ONE OF THE ASCII CHARACTERS NOT A THRU F • 

♦ » 



CONHEX 



NUH 
STA- 
LLS 
RTJ» 
JHP» 
ALS 
STA- 





COKUSE 

8 

A SCI HEX 

ILLASC 

4 

COHUSE+1 



SAVE LOWER TWO CHAR 

CONVERT UPPER ASCII CHAR TO HEX 
ILLEGAL ASCII CHAR FOUND 

SAVE CONVERTED CODE 
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2520 
2521 
2522 
2523 
252* 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
253% 
2535 
2536 
2537 
2538 
2539 
25*0 
25*1 
25*2 
25*3 
25** 
25*5 
25*6 
25*7 
25*8 
25*9 
2550 
2551 
2552 
2553 
255* 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
256* 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 



08C5 
08C6 
08C7 
06C8 
06C9 
08CA 
08CB 
08CC 
08CO 
08CE 
08CF 
0600 
08D1 
08D2 
0803 
080* 
08D5 
0806 
0807 
0808 
08D9 
08DA 
08DB 
080C 
0800 
08DE 
08DF 
08E0 
08E1 
08E2 
08E3 
08E* 
08E5 
08E6 



0FE8 
5813 
1811 
B0C9 
OFC* 
60CB 
EOCA 
0FE8 
580C 
180A 
BOCB 
OFC* 
60CB 
QFE8 
5806 
180* 
BOCB 
08E7 
08*2 
1CE5 
0000 
AQ8A 
09CF 
0139 
09F5 
0135 
09F8 
0135 
09F9 
0123 
0906 
090A 
08F3 
1CF2 



08E7 
08E8 
08E9 
08EA 
08EB 
08EC 
08EO 
08EE 
08EF 
08FO 
08F1 



0080 
6 OCA 
08*2 
OFE* 
00F5 
0162 
0102 
18FA 
1816 
COCA 
A07O 



ILLASC 
ASCIHEX 



ASC5 



LLS 
RTJ* 
JMP* 
EOR- 
ALS 
STA- 
LOQ- 
LLS 
RTJ* 
JMP* 
EOR- 
ALS 
STA- 
LLS 
RTJ* 
JMP* 
EOR- 
RAO* 
CLR 
JMP* 
NUN 
ANO- 
INA 
SAM 
INA 
SAM 
INA 
SAM 
INA 
SAP 
INA 
INA 
RAO* 
JMP* 



♦♦♦*»*»***»*** 



8 

ASCIHEX 
ILLASC 
COMUSE-H 
* 

COMUSE+1 
CO MUSE 
8 

ASCIHEX 
ILLASC 
COHUSE+1 
* 

COMUSE+1 
8 

ASCIHEX 
ILLASC 
COMUSE+1 
CONHEX 
Q 

(CONHEX) 


H0 07F 
-$30 

ASC5-*-i 
-SA 

ASC5-*-3 
-7 
ASC5 
-6 
ASCS 
6 

SA 

ASCIHEX 
f A SCI HEX) 
****** ************ 



CONVERT SECOND CHAR TO HEX 
ILLEGAL ASCII CHAR FOUND 



BUILD CONVERTED NUM 
LOAD LOHER TWO CHAR 

CONVERT THIRD CHAR TO HEX 
ILLEGAL ASCII CHAR FOUND 



BUILD NORD 

CONVERT LOHER CHAR TO HEX 
ILLEGAL ASCII CHAR FOUND 



REMOVE PARITY 
CHECK LOHER LIMIT 
LESS THAN $30 

NO* IS IT ABOVE $39 

NO- SO OK 

IS IT BELOH $*1 

YES, THEN ERROR 

NO - SO IS IT ABOVE $*6 

YES- THEN ERROR 

839 ANO $*1 



« 



CONVERT HEX CODE TO A OECIMAAL NUMBER 
ENTER THIS ROUTINE HITH CA) = HEX TO BE CONVERTEO 
EXIT AT P+2 HITH DECIMAL NUMBER IN A 
EXIT AT PU IF ILLEGAL DECIMAL NUMBER INPUTTED 



*« *« *«««* »**«* ******* ***«***9«*« ************** ***«»***«*«*«**«**««*«*»*« 



CONDEC 



CHKLEG 



OECILL 
LEGOEC 



NUM 

STA- 

CLR 

LLS 

INQ 

SQP 

SAZ 

JHP* 

JMP* 

LDA- 

AND- 





COMUSE 

Q 

* 

-$A 

OECILL-*-l 

LEGOEO*-1 

CHKLEG 

ILLDEC 

COMUSE 

HO OOF 



SAVE HEX NUMBER 



LOAD HEX NUM TO CONVERT 
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2573 


08F2 


60CB 




STA- 


COHUSE+1 


257% 


08F3 


COCA 




LOA- 


CO MUSE 


2575 


08F% 


A07E 




AND- 


HOflFQ 


2576 


08F5 


OFCC 




ALS 


12 


2577 


08F6 


2810 




MUI* 


0EC1 


2570 


08F7 


80CB 




AOD- 


COHUSE+1 


2579 


08F8 


60CB 




STA- 


COHUSE+1 


2580 


08F9 


COCA 




LDA- 


COHUSE 


2581 


08FA 


A07F 




AND- 


HOFOO 


2582 


08FB 


0FC8 




ALS 


8 


2583 


08FC 


280B 




HUI» 


DEC2 


258% 


08FD 


80CB 




AOD- 


COHUSE+1 


2585 


08FE 


60CB 




STA- 


COHUSE+1 


2586 


08FF 


COCA 




LOA- 


COHUSE 


2587 


0900 


AQ80 




ANO- 


HFOOO 


2588 


0901 


OFC% 




ALS 


% 


2589 


0902 


2806 




MUI» 


0EC3 


2590 


0903 


80CB 




AOO- 


COHUSE+1 


2591 


090% 


D8E2 




RAO» 


COHOEC 


2592 


0905 


1CE1 


ILLDEC 


JHP» 


(CONOEC) 


2593 


S906 


QOOA 


DEC1 


NUH 


SA 


259% 


0907 


006% 


0EC2 


NUH 


$6k 


2595 


0908 


03E8 


0EC3 


NUM 


S3E8 


2596 


0909 


0909 


TTYEND 


ADC 


* 



SAVE LOHER HEX NUH 

SAVE 2ND LOHER HEX NUH 

HULT 2ND DIGIT TIHES 10 
TOTAL OEC EQUIV OF LOHER TWO 
SAVE PARTIAL CONVERSION 
LOAD HEX NUHBER 
SAVE 3RD DIGIT 

HULT HTIRD NUH BY TEN SQ 
TOTAL DEC EQUIV OF LOHER 3 

LOAO HEX NUHBER 
SAVE UPPER DIGIT 

HULT UPPER DIGIT BY 10 CUBE 



TEN 

TEN SQUARED 

TEN CUBED 
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DATE! 12/17/71* 



2598 






*»»»jpv**»**«*»*«i. 


MM»W?*» 


2599 






* 






2600 






« 






2601 






* . 






2502 






?»»***Pftf**»»*?5PI>»*9)H!»«* 


2604 


090A 


5857 


0R42 


RTJ* 


PRTBSY 


2605 


090B 
090C 


C800 
FC98 




LDA 


AOOR 


2606 


0900 


0113 




SAN 


0R42A 


2607 


090E 


5862 




RTJ* 


SPC42 


2606 


090F 
0910 


1800 
FC50 


0R42EX 


JMP 


HESSA3 


2609 


0911 
0912 


ccoo 

FC92 


DR42A 


LOA 


(AOOR) 


2610 


0913 


6846 




STA* 


0R42T1 


2611 


0914 
0915 


A800 
F772 




AND 


H7F00 


2612 


0916 


6844 




STA* 


DR<i2T3 


2613 


0917 
0918 


BOOO 
OAOO 




EOR 


sNSOAOO 


2614 


0919 


0118 




SAN 


0R42AC 


2615 


091 A 


5842 




RTJ* 


PRTFNC 


2616 


091B 


C83E 


DR42AB 


LDA* 


0R42T1 


2617 


091C 
0910 


A 800 
F76C 




AND 


H0 07F 


2618 


091E 
091F 


B800 
F758 




EOR 


BIT13 


2619 


0920 


6839 




STA* 


DR42T1 


2620 


0921 


1807 




JMP* 


DR42AD 


2621 


0922 


C838 


DR42AC 


LDA* 


0R42T3 


2622 


0923 
0924 


BOOO 
OOOO 




EOR 


sNSQDOO 


2623 


0925 


0112 




SAN 


0R42AD 


2624 


0926 


5844 




RTJ* 


PRT42 


2825 


0927 


18F3 




JMP* 


0R42AB 


2626 


0926 


5839 


DR42A0 


RTJ* 


PRTBSY 


2627 


0929 


C830 


0R42B 


LDA* 


DR*»2T1 


2628 


092 A 
092B 


A800 
F75E 




AND 


H0 07F 


2629 


092C 


682E 




STA* 


DR42T3 


2630 


0920 


09F5 




INA 


-$A 


2631 


092E 


0106 




SAZ 


DR*»28B 


2632 


092F 


09FC 




INA 


-3 


2633 


0930 


0112 




SAN 


DR42BA 


2634 


0931 


5839 




RTJ* 


PRT42 


2635 


0932 


180B 




JMP* 


DR<t2E 


2636 


0933 


5817 


0R42BA 


RTJ* 


PRTBFR 


2637 


0934 


1809 




JMP* 


DR42E 


2638 


0935 


C824 


0R42BB 


LDA» 


DR42T1 


2639 


0936 
0937 


A800 
F750 




AND 


H7F00 



WAIT FOR PRINTER NOT BUSY 
AOOR OF BUFFER START 



HERE IF ONLY FORMAT REQ, DO SPACE 
EXIT 

GET CHARACTER 

SAVE 

REMOVE PARITY BIT LOWER CHARACTER 



CK FOR LF 

SKIP IF NO 

DO PRINT* SINGLE SPACE 
GET BUFFER WORD 
REMOVE UPPER CHAR 

CHANGE TO A SPACE 



CK FOR CR IN UPPER CHAR 

SKIP IF NO 
PRINT 

HAIT FOR NOT BUSY 
RESTORE WORD 
SAVE ONLY LONER CHAR 



CHECK FOR LINE FEED 
SKIP IF YES 

CK FOR CARR RETURN 
SKIP IF NO 
PRINT 

OUTPUT HORO TO 8UFFER 

RESTORE WORD 
REMOVE LF CHAR 
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2640 

2641 
2642 
2643 
26*4 

2645 

2646 

2647 
2648 
2649 

2650 
2651 
2652 



0936 
0939 
093A 
093B 
093C 
0930 
093E 
093F 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 



S800 
F736 
681F 
580F 
5820 
D30Q 
FC67 
O800 
FC64 
C800 
FC63 
0101 
18CC 
C800 
FC62 
0111 
5822 
18C5 



DR42E 
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EOR 

STA» 
RTJ» 
RTJ» 
RAO 

RAO 

LOA 



SAZ 
JHP* 
0R42EA LOA 

SAN 

RTJ» 

JMP» 



BIT05 

DR42T1 
PRTBFR 
PRTFNC 
CNTNUM 

AOOR 

CNTNUM 

DR42EA 

DR42A 

TTYHSG 

1 

PRT42 

DR42EX 



DATE I 12/17/74 

REPLACE IT HITH A SPACE 



OUTPUT WORD TO BUFFER 
00 PRINT t SINGLE SPACE 
INCREASE WORD COUNT 

INCREASE WORD AOOR 



SKIP OUT WHEN DONE 

COMPLETED 8UFFER,CK PARTIAL FLAG 

SKIP IF CALL ONLY PART OF MSG 
DO PRINT 
RETURN TO CALLER 



2654 
.2655 
2656 
2657 
2658 
2659 
2660 
2661 



094A 
094B 
094C 
0940 
094E 
094F 
0950 
0951 



0000 
E810 
OOFE 
C80C 
0302 
1CFA 
18FD 
18FC 



PRTBFR 



PRTREJ 



NUM 

LOQ* 

INQ 

LOA* 

OUT 

JMP* 

JMP» 

JMP» 





PRTEQU 

-1 

0R42T1 

PRTREJ-* 

(PRTBFR) 

»-2 

•-3 



OUTPUT WORD 
PRINTER EQUIP 

DATA HORO-HODIFIED IF NECESSARY 

EXIT IF REPLY 
INT REJ 
EXT REJ 



2663 
2664 
2665 
2666 
2667 
2668 
2669 



2671 
2672 
2673 



0952 
0953 
0954 
0955 
0956 
0957 
0958 



0000 
E808 
0AO1 
0302 
1CFB 
18FD 
18FC 



0959 0000 
095A 0000 
095B 0201 



PRTCLR 



CLRREJ 



NUN 

LDQ» 

ENA 

OUT 

JMP» 

JMP» 

JMP» 



0R42T1 NUM 
0R42T3 NUM 
PRTEQU NUM $0201 





PRTEQU 

1 

CLRREJ^* 

(PRTCLR) 

•-2 

»-3 



CLR PRINTER 



EXIT IF REPLY 
INT REJ 
EXT REJ 



DATA WORD TO PRINTER 
LINE PRINTER EQUIPMENT AODRESS 



2675 
2676 
2677 
2678 
2679 



095C 0000 
095Q 5800 
095E 5803 
095F 5811 
0960 1CFB 



PRTFNC NUM 
RTJ* 
RTJ* 
RTJ* 
J MP* 





PRT42 

PRT8SY 

SPC42 

(PRTFNC) 



GO PRINT THE LINE 
WAIT NOT BUSY 
SPACE ONE LINE 



60411400 C 



PAGE 58 



r ■) 



f \ f 



O O O O C~Z) o o o 



n r^ n n 



( \ 



v_- 



SHMOOO 



PAGE 59 



DATE* 12/17/71* 



26 81 


0961 0000 


PRTBSY 


NUH 


2682 


0962 E8F8 




LDQ» PRTEQU 


2683 


0963 0D02 




INQ 2 


268* 


0964 02FE 




INP -1 


2665 


0965 A800 

0966 F705 




AND BITOi 


2666 


0967 0101 




SAZ 1 


2687 


0968 18F8 




JMP* »-4 


2688 


0969 1CF7 




JHP» fPRTBSY) 


2690 


096A 0000 


PRT42 


NUH 


2691 


0968 E8EF 




LOU* PRTEQU 


2692 


096C 0002 




INQ 2 


2693 


0960 0AO1 




ENA 1 


2694 


096E 03FE 




OUT -1 


2695 


096F 1CFA 




JHP* (PRT42) 


2697 


0970 0000 


SPC42 


NUN 


2698 


0971 E8E9 




LDQ» PRTEQU 


2699 


0972 0O02 




INQ 2 


2700 


0973 0A02 




ENA 2 


2701 


0974 03FE 




OUT -1 


2702 


0975 1CFA 




JHP» (SPC42I 


2703 


0976 0977 


PRTENO 


ADC »+l 



WAIT NOT BUSY 



PRINT A LINE 



SINGLE SPACE 
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DATE! 12/17/74 



2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 



0977 5805 

0978 180A 

0979 0A1A 
097A 5428 
0978 18FB 



» • 

* MBS OVERLAY CALL ROUTINE ♦ 

♦ ♦ 

LOOVLY RTJ* 0CALL8 

JMP» PPMON 

ENA OLLERR 

RTJ- CSMERROR) 

JMP* LOOVLY 



2716 
2717 
2718 
2719 
2720 
2721 



097C 0000 
097O 0A09 
097E 5<»08 
097F 1CFC 

0980 08FB 

0981 1CFA 



0CALL8 



NUH 

ENA 

RTJ- 

JMP» 

RAO» 

JHP» 





9 

COVRLAYJ 

C0GALL8) 

0CALL8 

(0CALL8J 



2723 
2724 
2725 

2726 
2727 



0982 
0983 
0984 
0965 
0986 
0987 
0988 



5 4 OF 
0G12 
COQO 
0989 
5408 
1400 
02C0 



PPMON 
PTYPE 



RTJ- 

ENQ 

LOA 

RTJ- 
JMP+ 



(HONPP) 

HEADF-HEADG*1 
= XHEAOG 

CTYPEOUTI 
SN START 



SET MOM TOR PROTECT PATTERN 



2729 
2730 



2731 
2732 
2733 
2734 
2735 
2736 



0989 
098A 
0988 
098C 
0980 
098E 
098F 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
099A 



8O0A 
5345 
5420 
5050 
2020 
2043 
4C45 
4152 
2053 
544F 
5020 
5«»4F 
2052 
554E 
2050 
524F 
542E 
8O0A 



HEADG 



NUM 
ALF 



S800A 

XtSET PP - CLEAR STOP TO RUN PROT.X 



PTC2 



HEAOF NUM S800A 

♦ » 

» BEGIN OVERLAY FOR MBS SUBROUTINES * 
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DATEJ 12/17/74 



2738 099B OOOO MBSOLY NUH 



2741 
2742 
27<»3 
2744 
2745 
2746 
2747 



♦ 

♦ INITIALIZE SMM17 

» THESE LOCATIONS HILL BE DESTROYED WHEN THE 

» FIRST TEST IS LOADED 

■»'■■' 





2749 


Q99C 0801 


INSMH17 SET 


H 




2750 


0990 Q8QC 


TRM 


A 




2751 


099E A083 


AND- 


HFFFO 




2752 


099F 0102 


SAZ 


INO 




2753 


09AO E076 


LDQ- 


BIT11 




2754 


Q9A1 4049 


STQ- 


INFORM 




2755 


09A2 B07D 


INO EOR- 


HOOOF 




2756 


09A3 A042 


AND- 


SETMASK 




2757 


09A4 0864 


TCA 


A 




2758 


09A5 E800 


LDQ PRTEQU 






09A6 FFB4 








2759 


09A7 0191 


SHN 


1 


,» 


2760 


09A8 0000 


NUH 







2761 


09A9 0864 


TCA 


A 




2762 


09AA 08AO 


LAM 


A,M 


, V. 


2763 


09AB 6042 


STA- 


SETMASK 




2764 


09AC 0814 


TRQ A 






2765 


09AD AOOO 


ANO =NS7F80 


, . 




09AE 7F80 








2766 


09AF 0901 


INA 


1 




2767 


09B0 6800 


STA PRTEQU 






09B1 FFA9 








2768 


09B2 0846 


CLR AtQ 






2769 


0983 C400 


LDA+ 


PASSHH 






09B4 OFOD 








2770 


09B5 6400 
0936 0A48 


STA* 


IN10 




2771 


09B7 OADF 


ENA 


-$20 




2772 


09B8 A400 
09B9 0A48 


AND* 


IN10 




2773 


09BA 0920 


INA 


220 




2774 


09BB 6056 


STA- 


SMMCNT 




2775 


09BC C400 
09BO OFOE 


LDA* 


PASS J 



SET ALL BITS IN M REG 

REMOVE BITS FROM 4 BIT REG 
ZERO A INDICATES 4 BIT M REG 
MASK IS 16 BITS. 

EQUALS NOW FFFF OR OOOF 
CALLOW PRESTORED DISABLES) 



GET PRINTER ADDRESS 



IF SWITCH SET AFTER 2ND SMM 
PARAMETER STOP, HILL STOP HERE 
WITH AREG DISPLAYING DISABLED 
INTERRUPTS. SET/CLR AS DESIRED. 

(alST CHANCE FOR SHH HAND-CHANGE 



DIRECTOR FUNCTION AND STATUS 
RESTORE PRINTER ADDRESS 



FETCH SMM PARAHETER FROM QL. 
FORCE 

NON-INTERRUPT 



MOOE 



STOP/ JUMP WORD FROM QL. 



TYPEOUT 
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DATE! 12/17/7* 





2776 


09BE 60*3 




STA- 


STJP 




2777 


09BF 0CF5 




ENQ 


-10 




. 2778 


09CQ *BFF 




STQ- 


I 




2779 


09C1 E1BA 


INITSJ 


LDQ- 


MSTJPtI 




2780 


09C2 0151 




SQN 


PRESTRD-*-i 




2781 


09C3 6IBA 




STA- 


MSTJP, I 




2782 


09C* DOFF 


PRESTRD 


RAO- 


I 




2783 


09C5 EOFF 




LDQ- 


I 




278* 


09C6 01*1 




SQZ 


LDEQ-*- 2 




2785 


09C7 18F9 




JMP* 


INITSJ 


v 


2786 


09C8 60BA 




STA- 


MSTJP 




.' 2787 


09C9 E*00 
09CA OFDF 


LDEQ 


LDQ* 


PASEQ 




2788 


09CB *057 




STQ- 


EQUIP 




2789 


09CC COBA 




LOA- 


MSTJP 




2790 


09CD A073 




AND- 


BIT08 


-. 


2791 


09CE 0101 




SAZ 


1 




2792 


09CF 181* 




JMP» 


IN3 


- 


. 279* 


0900 EOOO 
09D1 0091 




LDQ 


sN891 




2795 


09D2 0A01 




ENA 


1 


^x 


2796 


09D3 0302 


IN2A 


OUT 


IN2B-*-l 




2797 


090* 1803 




JMP» 


IN2C 




2798 


0905 160E 




JHP* 


IN3 


w 


2799 


0906 18FC 


IN2B 


JMP» 


IN2A 




2800 


0907 C073 


IN2C 


LDA- 


BIT08 




2801 


0908 03FE 




OUT 


*-l 


< 


2802 


0909 OOFE 




INQ 


-1 




2603 


090 A OAFF 




ENA 


-0 




280* 


09DB 03FE 




OUT 


-1 


... 


2805 


09DC 03FE 




OUT 


-1 




2806 


090D 0O01 




INQ 


1 




2807 


090E 02FE 


IN2D 


INP 


-1 




2808 


090F A06C 




AND- 


8IT01 




2809 


09E0 0101 




SAZ 


1 




2810 


09E1 18FC 




JMP» 


IN20 


.. 


2811 


09E2 188F 




JMP» 


IN* 




2812 


09E3 0CF5 


IN3 


ENQ 


-10 




2813 


09E* C2BA 


IN3A 


LDA- 


HSTJP.Q 




281* 


09E5 AOOO 
09E6 FEF7 




ANO 


3N-S108 


r K 


2815 


09E7 8000 




AOD 


= N$108 


_ 




09E8 0108 










2816 


09E9 62BA 




STA- 


MSTJP,Q 




2817 


09EA 01*2 




SQZ 


IN3B-*-l 




2818 


09EB 0O01 




INQ 


1 




2819 


09EC 18F7 




JMP» 


IN3A 




2820 


09EO 60*3 


IN3B 


STA- 


STJP 




2821 


09EE OABF 




ENA 


-$(,0 




2822 


09EF A859 




AND* 


IN10 




2823 


09FO 6858 




STA* 


IN10 




282* 


09F1 EOOO 
09F2 0F01 

60*11*00 C 


IN* 


LOQ 


= XLASHBS 



(FOR SMH HEADING NSG.) 



STORE STOP/JUMP PARAMETER 
FROM INITIALIZATION 
IN INDIVIDUAL, 
NON-PRESTORED, 

TEST PARAMETER TABLE. 
HASTER PRESTOREO IN QL, NOT SMH. 



EQUIPMENT ADDRESS FROM QL. 



SKIP IF OK TO TYPEOUT 
JJUMP TO OMIT ALL TYPEOUTS 

CHECK FOR PRESENCE OF TTY. 



EXTERNAL REJECT 

REPLY 

INTERNAL REJECT - TTY NOT AVAIL 

REPEAT FUNCTION 

SELECT HRITE MODE 



OUTPUT 2 RUBOUT COOES 

STATUS 

CHECK FOR BUSY 

RECHECK STATUS 



IF TTY NOT PRESENT, 
SET OMIT TYPEOUT AND 

STOP ON ERROR BIT 

IN EACH TABLE ENTRY. 



(FOR SMM HEADING MSG. I 
CLEAR SELECT TTY DISPLAY/ENTRY 
BIT IN SMM PARAMETER. 
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DATEt 12/17/74 





,2885 


09F3 


C855 




LDA* 


IN10 




2826 


09F4 


0FC7 




ALS 


7 




2827 


09F5 


0121 




SAP 


1 




2828 


09F6 


1880 




JMP» 


IN4C 




2829 


09F7 
09F8 


EOOO 
0976 




LDQ 


=XPRTEND 




2830 


09F9 


OFCE 




ALS 


14 




2831 


09FA 


0121 . 




SAP 


1 




2832 


09FB 


1808 




JMP» 


IN4C 




2833 


09FC 
09FD 


EOOO 
0909 




LDQ 


sXTTYENO 




2834 


09FE 


0FC4 




ALS 


4 




2835 


09FF 


0121 




SAP 


1 


.. 


2836 


OAOO 


1803 




JHP» 


IN4C 




2837 


0A01 
0AO2 


EOOO 
0794 




LDQ 


sXENDMONl 


-. 


2838 


0A03 


4044 


IN4C 


STQ- 


LASTVALUE 




2839 


0A04 


C844 




LDA» 


IN10 




2840 


OADS 


DFC4 




ALS 


4 


w 


2841 


8A06 


OCOF 




ENQ 


SF 




2842 


0A07 


08B6 




LAQ 


A,Q 




2843 


0A08 


OOFC 




INQ 


-HT 




2844 


OA09 


014B 




SQZ 


TOHEAO-»-l 




2845 


OAOA 


60FD 


L0L0R1 


STA- 


1-2 




2846 


OAOB 


COOO 




LDA 


=XLDLDR2 


, ^. 




6A0C 


QA10 










2847 


OAQD 


6025 




STA- 


INTX 




2848 


O&OE 
OAQF 


1400 
0EA3 




JMP+ 


PR&DR+3 




2849 


0A10 


COFO 


LDLDR2 


LDA- 


1-2 




2850 


0A11 
0A12 


8800 
FG95 


LDLDR3 


EOR 


MTUHIT+i 




2851 


0A13 


0101 




SAZ 


TOHEAD-*-l 




2852 


0A14 


18F6 




JMP» 


LOLORi+1 




2853 


0A15 


0G2A 


TOHEAD 


ENQ 


HEADB-HEAOING+1 




2854 


0A16 
0A17 


COOO 
0AF5 




LDA 


= X HEADING 


, „ 


' 2855 


0A18 


5408 




RTJ- 


(TYPEOUT) 




2856 


0A19 


0700 


IN5 


CPB 







2857 


0A1S 


OBOO 




NOP 







'2858 


0A1B 


01FB 




SNF 


IHl-*-l 




2859 


0A1C 


0C12 




ENQ 


HEADD-HEADB+1 




2860 


0A1O 


OAOC 




ENA 


SC 




2861 


0A1E 


AQ56 




AND- 


SHKCNT 




2862 


0A1F 


09FB 




INA 


-4 




2863 


0A20 


0101 




SAZ 


1 


v.. 


2864 


0A21 


0C08 




ENQ 


HEADC-HEAOB+1 




2865 


0A22 
0A23 


COOO 
0B1E 




LOA 


sXHEAOB 




2866 


0A24 


540 a 




RTJ- 


(TYPEOUT) 




2867 


0A25 


0000 




SLS 







2868 


0A26 


18F2 




JMP» 


IN5 




2869 


0A27 


C047 


INI 


LOA- 


LDLCORE 



HBS SEL TO BIT 15 
SKIP IF NOT 



L. P. SEL TO BIT 15 
SKIP IF NOT 



TTY SEL TO BIT 15 
SKIP IF NOT 



CHECK SELECTED LOADER TYPE. 
(HT LOR ASSEMBLED IN MONITOR) 



OVERLAY APPROPRIATE RBD LOADER. 



CHECK LOADER TYPE 



PTC2 



PRINT SMM17 V3.0. 



(IF PROTECT FAULT GENERATED, 

INFORM OPERATOR OF NEED 
TO DISABLE MANUAL CONTROLS 

CHECK FOR SC1700 
SKIP IF NOT SC1700 



TRY AGAIN. 

DETERMINE CORE SIZE, BKO 
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OATEt 12/17/7* 





2870 


0A28 6**7 




STA- 


(LDLCORE) 




2871 


0A29 9077 




SUB- 


BIT12 




2872 


OA2A 60*7 




STA- 


LDLCORE 




2873 


0A2B 0131 




SAN 


IN2-»-l 




287* 


0A2C 18FA 




JNP» 


INI 




2875 


0A2O C*87 


IN2 


LDA- 


(H7FFF) 




2876 


0A2E 60*7 




STA- 


LOLCORE 


.. 


2877 


0A2F A080 




AND- 


HFOOO 




2878 


0A30 B0*9 




EOR- 


INFORM 




2879 


0A31 60*9 




STA- 


INFORH 




2881 


0A32 CQ*8 


BKCHK1 


LDA- 


LOL1COR 




2882 


0A33 6**8 




STA- 


IL0L1C0RI 


. _ 


2883 


0A3* E**7 




LDQ- 


(LOLCORE) 




288*1 


0A35 0176 




SQH 


BKCHK3-*-l 




2885 


0A36 9077 




SUB- 


BIT12 


.... 


2886 


0A37 0122 




SAP 


BKCHK2-*-l 


( 


2887 


0A38 60*8 




STA- 


LOL1COR 




2888 


0A39 18F8 




JHP« 


BKCHK1 


,. 


2889 


0A3A C*7C 


BKCHK2 


LDA- 


CHFFFF) 




2890 


0A3B 1802 




JHP» 


BKCHK* 




2891 


QA3C C0*7 


BKCHK3 


LDA- 


LOLCORE 




2892 


0A3O 60*8 


BKCHK* 


STA- 


LOL1COR 




2893 


0A3E 900Q 
0A3F 0082 




SUB 


-N130 


,. 


2894 


0A*0 090F 




INA 


-$20 




2695 


0A*1 60E1 




STA- 


STOPBFR 


, ■ 


2896 


0A42 09E1 




INA 


-160*130 




2897 


0A*3 6810 




STA» 


IN13B+1 




2898 


OA** COQO 
0A*5 OA*E 




LOA 


= XXN13A 


... 


2699 


0A*6 6025 




STA- 


INTX 




2900 


0A*7 CO 00 




LDA- 





, 


2901 


OA*S 0000 


IN10 


NUM 







2902 


0A*9 6056 




STA- 


SMHCNT 




2903 


OA*A A068 




ANO- 


BITOO 




290* 


OA*B EO** 




LDQ- 


LASTVALUE 




2905 


OA*C 0105 




SAZ 


IN13B-*-l 




2906 


0A*O 1812 




JHP* 


LLCONT 




2907 


OA*E OAFE 


IN13A 


ENA 


-1 




2908 


OA*F A0*9 




AND- 


INFORH 




2909 


0A50 60*9 




STA- 


INFORH 




2910 


0A51 18*2 




JMP» 


FLGENO+1 




2911 


0A52 COOO 


IN13B 


LDA- 







2912 


0A53 0000 




NUM 







2913 


0A5* 60*6 




STA- 


INBI1 




291* 


0A55 COOO 
0A56 028* 




LDA 


= XHCINIT 




2915 


0A57 6025 




STA- 


INTX 


v 


2916 


0A58 C056 




LDA- 


SMHCNT 




2917 


0A59 A073 




AND- 


BIT08 




2918 


0A5A 0102 




SAZ 


IN13C-»-l 




2919 


0A5B 1800 
0A5C FF1A 

60*11*00 C 




JMP 


LOOVLY 



$1000 



LOADER LAST CORE, BKO 
HASK OUT CORE SIZE 

STORE IN INFORHATION WORD 

OETERHINE CORE SIZE* BK1. 

LAST ADR OF BKO WILL NOH BE 

NEGATIVE IF BK1 NOT PRESENT, 
$1000 
FINNISHED UPPER BANK 

NO 



STOPX BUFFER AREA, 

CONSOLE AUTOLOAO AREA. 
STOPX AND ROD LOAOER 

SHARE SAME BUFFER 

SAVE INBI1 VALUE 

PREPARE FOR LIB LIST ABORT 

VIA HC-RESTART, 
RESTORE SMHCNT INTERRUPT 
MODE AFTER HEADING TYPEOUT. 



DO LIBRARY LIST. 

(LIB LIST ABORTION ENTRY HERE) 



P+l HAS BEEN PLUGGEO 
WITH INBI1 VALUE 
SET UP RBD INP-BFR FHA 
PREPARE FOR HC RESTART. 
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DATE I 12/17/7* 



2920 0A5D 1400 IN13C 
0A5E 02C0 



JMP* 



SH START 



2922 
2923 
292*1 
2925 
2926 
2927 
2926 



» * 

♦ LIBRARY LIST OPERATION » 

♦ PREPARES Bl FOR LOAD COhTROL • 

* CHECKS B6 FOR LOAD ERRORS * 

* * 



2930 

2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 

2957 
2958 
2959 
2960 
2961 
2962 
29.63 
2964 
2965 



0A5F 
0A60 
0A61 
0A62 
0A63 
0A64 
0A65 
0A66 
0A67 
0A68 
0A69 
0A6A 
0A6B 
0A6C 
0A6D 
0A6E 
0A6F 
0A70 
0A71 
0A72 
0A73 
0A74 
0A75 
0A76 
0A77 
0A78 
0A79 
0A7A 
0A7B 
0A7C 
0A7D 
0A7E 
QA7F 
0A8O 
0A81 
0A82 
0A83 
0A84 



C008 
0F01 
6046 
6044 
48FB 
OAFF 
60BC 
C056 
806B 
6056 
A080 
0FC4 
09FC 
0121 
182D 
01Q3 
09FC 
0121 
1825 
C0C6 
0101 
181E 
846 
60BE 
60BF 
60C1 
60C2 
5400 
06A6 
C446 
60BD 
BOOO 
2A48 
011A 
0C02 
C646 
540A 
5409 



LLCONT LOA 



STA- 

STA- 

STQ» 

ENA 

STA- 

LOA- 

EOR- 

STA- 

ANO- 

ALS 

INA 

SAP 

JMP» 

SAZ 

INA 

SAP 

JHP* 

LDA- 

SAZ 

JHP* 

CLR 

STA- 

STA- 

STA- 

STA- 

RTJ+ 



LL1 
LL2 



ALFXH 



LDA- 

STA- 

EOR- 

ALF 

SAN 

ENQ 

LDA- 

RTJ- 

RTJ- 



=XLASHBS 

INBI1 

LASTVALUE 

LLCONT 

-0 

Bl 

SMHCNT 

BITOO 

SNKCNT 

HF000 

4 

-HT 

1 

SETTERM 

LLi-*-l 
-3 
LLl-*-l 

LLTRH1 

RHDFLG 

LL2-»-i 

FLSND 

A,Q 

B3 

B4 

B6 

B7 

LOADER 

UI8X1) 

B2 



1,*H 

NOTXH-»-l 

2 

IINBID.Q 

(HEXASC) 

ITTYBZYI 



INCREASE BFR AREA FOR QL, SMH 
{FOR DP LIB LIST) 
SAVE ORIGNINAL VALUE 

FLAG LIB LIST OPERATION 



REMOVE LIB LIST SELECT 



IS LOAOER DISK 
IS DEVICE 6 OR ABOVE JU 

POS IS YES JU 

YES GO TYPEOUT BINQL 
NO 
HAS DISK REACHED END OF FILE 
YES TERMINATE LIBRARY LIST 
NO 



RBD BLOCK ID 

(FLAG PREVIOUS LOADER ENTRY) 



SKIP IF NOT HEX CORRECTION BLOCK 
REPORT PROGRAM CORRECTION AODRS. 



WAIT BUSY MESSAGE ROUTINE. 
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DATES 12/17/74 





2966 


0A85 486E 




sm* 


HEADING-2 




2967 


0A86 686E 




ST A* 


HEAOING-1 




2968 


0A87 COOO 
0A88 OAEB 




LOA 


•XLLHSC* 




2969 


0A89 OCOA 




ENQ 


HEADING-LLMSG4 




2970 


0A8A 183C 




JHP» 


CKLLER-1 




2971 


0A8B 88F3 


NOTXH 


EOR» 


ALFXH 




2972 


0A8C SOOO 
0A8D 2050 




EOR 


= NJ2050 




2973 


0A8E 0842 




CLR 


Q 




297* 


0A8F 010E 




SAZ 


LLNAM-»-l 




2975 


0A90 0FE3 




LLS 


3 




2976 


0A91 010B 




SAZ 


CONTLL-»-l 




2977 


0*92 0113 


FLGEND 


SAN 


LLTERM-* 




2978 


0A93 C8CB 




LDA* 


LLCONT 




2979 


0A94 6044 




STA- 


LA ST VALUE 




2980 


0A95 188C 


LLTERM 


JMP» 


IN13B 




2981 


0A96 COOO 
0A97 OAOO 


LLTRM1 


LOA 


= XLLMSG2 




2982 


QA98 QC04 




ENQ 


LLMSG3-LLHSG2 




2983 


0A99 5408 




RTJ- 


JTYPEOUT) 




298% 


0A9A COOO 


SETTERM 


LDA- 







2985 


0A9B OBOO 




NOP 







2986 


0A9C 68F5 




STA» 


FLGEND 




2987 


OA90 182 A 


CONTLL 


JMP» 


CKLLER 




2986 


0A9E 5409 


LLNAN 


RTJ>- 


CTTYBZY) 




2989 


0A9F BC06 




ENQ 


6 




2990 


OAAO C646 




LOA- 


(INBID.Q 




2991 


0AA1 6840 




STA» 


LLMSG3 




2992 


0AA2 ODFE 




INQ 


-1 




2993 


0AA3 C646 




LOA- 


(INBI1I.Q 




2994 


0AA4 ODFE 




INQ 


-1 




2995 


0AA5 E646 




LOQ- 


(INBI1),Q 




2996 


0AA6 A082 




AND- 


HFFOO 


, 


2997 . 


0AA7 0920 




INA 


S2 




2996 


0AA6 0FF8 




LLS 


24 




2999 


0AA9 4839 




STQ» 


NAHMD5 


_. 


3000 


OAAA 6839 




STA» 


NAMHD6 




3001 


OAAB 0182 




SNS 


OATEPL-»-l 




3002 


OAAC 0C04 




ENQ 


DATE01-LLMSG3+1 


._ 


3003 


OAAD 1817 




JMP» 


LLLINE 




3004 


OAAE 0C03 


OATEPL 


ENQ 


3 




3003 


OAAF C646 




LOA- 


(INBID.Q 




3006 


OABO 540A 




RTJ- 


(HEXASC) 




3007 


0AB1 <*837 




STQ» 


PL*1 




3008 


0AB2 6837 




STA» 


PL+2 


... 


3009 


0AB3 OCOA 




ENQ 


10 




3010 


0AB4 40FF 




STQ- 


I 




3011 


0AB5 C646 




LOA- 


(INBIDtQ 




3012 


0AB6 E08B 




LDQ- 


H202D 




3013 


0AB7 0FE6 




LLS 


8 




3014 


0AB8 482C 




STQ* 


OATE01 




3015 


0AB9 0FE8 




LLS 


8 



SKIP ON NAM BLOCKS 

A ZERO - RBD TYPE BLOCK 

RESTORE SYSTEM VALUE. 



SET LIB LIST TERMINATE 

ON 2ND BINARY QL ENCOUNTER. 
CHECK FOR ERRS AND CONTINUE 
WAIT CCMPLETION OF LAST TYPEOUT, 
SAVE TEST 10, REVISION OATE. 



SKIP = INCLUDE REV OATE ♦ LENGTH 
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DATE! 12/17/7% 



3016 


0ABA DOFF 




RAO- 


I 




3017 


OABB C5%6 




LDA- 


(INBIl)tl 




30 IB 


OABC 0FE8 




LLS 


8 




3019 


OABD %828 




STQ» 


DATE23 




3020 


OABE 0FE8 




LLS 


8 




3021 


OABF DOFF 




RAO- 


I 




3022 


OACD C5%6 




LOA- 


(INBIDtl 




3023 


OAG1 0FE8 




LLS 


8 




302% 


0AC2 %82* 




STQ» 


DATE*5 




3025 


0AC3 QCOA 




ENQ 


LLHSG*-LLHSG3 




3026 


0AC% C0O0 
0AC5 OAEO 


LLLINE 


LOA 


=XLLHSG3-i 




3027 


0AC6 5*08 




RTJ- 


CTYPE0UT1 




3028 


0AC7 COBE 


CKLLER 


LDA- 


B3 




3029 


0AC8 010C 




SAZ 


JLLl-»-i 




3030 


0AC9 680E 




STA» 


ERCODE 




3031 


OACA COBF 




LOA- 


B* 




3032 


OACB 680E 




STA» 


ST0PA3 




3033 


OACC C0C1 




LDA- 


B6 




303% 


OAOO 6800 




STA» 


ST0PQ3 




3035 


OACJE C%%6 




LOA- 


(I N8I11 




3Q36 


OACF 680C 




STA» 


STOPA* 




3037 


OAOO 0C02 




ENQ 


2 




3038 


0AO1 C6%6 




LDA- 


CINBIil.O. 




3039 


OA02 680A 




STA* 


STOPQ* 




30%0 


OA03 08%% 




CLR 


A 




30%i 


0AO<* 5*02 




RTJ- 


IS TOP) 




30*2 


0AO5 189C 


JLLi 


JMP» 


LL1 




30*3 


0AD6 0028 


LLERIO 


NUH 


$0028 




30%% 


0AD7 0000 


ERCODE 


NUH 







30%5 


0AO8 0A0% 


CALLAO 


ADC 


JLLl-i 




30*6 


OA09 0000 


ST0PA3 


NUH 







30*7 


OAOA 0000 


ST0PQ3 


NUH 







30*8 


OAOB 0000 


STOPA% 


NUH 







30*9 


OADC 0000 


STOPQ% 


NUH 







3050 


OAOO 42%9 
OAOE %E20 
OAOF 51%C 


LLMSG2 


ALF 


X,BIN QLX 




3051 


OAEO 800A 




NUH 


$8 00 A 




3052 


0AE1 2020 


LLHSG3 


ALF 


1* 




3053 


0AE2 2020 


NAHWD5 


NUH 


$2020 




305% 


0AE3 2020 


NAMHD6 


NUH 


$2020 




3055 


OAE% 0000 


OATE01 


NUH 







3056 


0AE5 0000 


0ATE23 


NUH 







3057 


0AE6 0000 


DATE%5 


NUH 







3058 


0AE7 2020 
0AE8 2020 
0AE9 2020 


PL 


ALF 


3, 




3059 


OAEA 2020 




ALF 


i» 




3060 


OAEB 800 A 


LLHSG* 


NUH 


$8D0A 




3061 


OAEC 2050 
OAED 52%F 
OAEE %720 
OAEF %0%F 

60%I1%00 C 




ALF 


X, PROG HOD AT 


P 



CHECK LOAD ERROR FLAG. 



LOADER FAULTS DURING LIB LIST 
HILL INCLUDE A<t AND Q% INFO- 
A«f=lST RECORD HORO (BLOCK 10 

IF RBD FORHATED RECORO) 
Q%*3RD HORD (PROGRAH AOOR. 
IF RBDBLK) 
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DATE* 12/17/74 





OAFO 4420 






0AF1 4154 






0AF2 2050 






0AF3 2020 






0AF4 2020 




3062 


0AF5 8O0A HEADING NUN 


3063 


0AF6 80 A 


NUN 


3064 


0AF7 5340 
OAFS 4031 
0AF9 3720 


ALF 


3065 


OAFA 2056 
OAFB 522E 
OAFC 2033 
OAFO 2E31 
OAFE 2031 
OAFF 2049 
OBOO 4E43 
OBQl 5245 
0802 4045 
0B03 4E54 
0B04 414C 
0B05 2052 
QB06 454C 
0B07 4541 
0BO8 5345 
0B09 2020 


ALF 


3066 


OBOA 4350 
OBOB 3246 


ALF 


3067 


OBOC 8Q0A 


NUH 


3068 


OBOD 434F 
OBOE 5059 
OBOF 5249 
OB10 4748 
OBll 5420 
0B12 434F 
0B13 4E54 
0B14 524F 
0B15 4C20 
0B16 4441 
0B17 5441 
0B18 2043 
0B19 4F52 
OBIA 502E 
0B1B 2031 
OBIC 3937 
0B1D 3420 


ALF 


3069 


0B1E OOOA HEAOB NUN 


30 70 


QBIF 434C 
0B20 5220 
0B21 5052 
0B22 4F54 
0B23 2093 
0B24 572E 


ALF 



$8O0A 
S8O0A 
X t SMH17 X 



X, VR. 3.1-1 INCREHENTAL RELEASE X 



X f CP2FX 

S800A 

Xt COPYRIGHT CONTROL DATA CORP. 1974X 



SOOOA 

XtCLR PROT SH.X 
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DATE! 12/17/7'* 


3071 0825 8D0A 


HEADC 


NUH 


S800A 




3072 0B26 MZkC 




ALF 


X.CLR AUTOLOAD PROT.X 


0B27. 5220 










0B28 4155 










0829 SM»F 










082A kCkF 










0B2B klkk 










0B2C 2050 










0B20 524F 










0B2E 5i»2E 










3073 0B2F 80QA 


HEAO0 


NUM 


S800A 





o 
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DATE I 12/17/74 



3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3088 
3087 



3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
31Q0 
3101 
3102 
3103 
3104 
3109 
3106 
3187 
3108 
3109 
3110 
3111 
3112 
3113 

3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 



* FINAL RBD LOADERS * 



06A7 
06A8 
06A9 
06AA 
06AB 
06AC 
08AO 
06AE 
06AF 
06BO 
06B1 
06B2 
06B3 
0684 
06B5 
06B6 
Q6B7 
0688 
06B9 
06BA 
06BB 
06BC 
06BD 
06BE 
06BF 
06C0 
06C1 
06C2 
06C3 
06C4 
06C5 
06C6 
06C7 
06C8 
06C9 
06CA 
06CB 
B6CC 



06A7 



0000 
0001 
5409 
050Q 
E057 
C076 
03FG 
0844 
60FF 
582E 
0FC8 
6446 
5828 
68F2 
5829 
0PC8 
6446 
5826 
C8ED 
0903 
012B 
0939 
0139 
C446 
AOOQ 
IFFF 
09AF 
0109 
COOO 
2A48 
B446 
0105 
E80F 
C446 
0FE8 
48DC 
18EB 
OOFF 



* THE ORG STATEMENTS AT THE BEGINNING OF EACH LOADER FLAGS THE * 

* EDITING ROUTINE TO INSERT OVERLAY BLOCKS ON INITIAL ASSEMBLY ♦ 

* PROOUCT BINARY EOITING. THE MAG TAPE LOACER IS ASSEMBLED IN * 

* THE SMM LOAD CONTROLLER AND CAN BE OVERLAYED ON REQUEST AT SMM • 
» LOAD TIME. CONSEQUENTLY, NONE OF THESE MAY BE LONGER THAN THE » 

* ALLOTTED AREA AT ♦ 

ORG MTUNIT 

* . ; * 



PTCNT 
PT1LDR 



PTOO 



PT01 



PT02 



PT03 



PT04 



NUM 
NUM 
RTJ- 
IIN 
LDQ- 
LOA- 
OUT 
CLR 
STA- 
RTS 
ALS 
STA- 
RTS 
STA» 
RTJ» 
ALS 
STA- 
RT J • 
LDA» 
INA 
SAP 
INA 
SAM 
LDA^ 
AND 

INA 

SAZ 

LDA- 

ALF 

EOR- 

SAZ 

LOQ» 

LDA- 

LLS 

STQ» 

JMP* 

RAO- 





1 

ITTYBZY) 



EQUIP 

BIT13 

PTlLDR-»*2 

A 

I 

RPTF 

6 

(IN8Z1) 

RPTF 

PTCNT 

RPTF 

8 

(INBXU 

RPTF 

PTCNT 

3 

PT03-»-i 

60-3 

PT03-»-l 

(INBI1) 

=N$1FFF 

-$50 

PT04-»-l 



1,*H 

CINBI1) 

PT04-»-i 

PTCNT 

CINBI1) 

8 

PTCNT 

PT02 

I 



CCOMPLEHENT HEX HORO COUNT) 
PAPER TAPE LOADER TYPE 
(WAIT SOFTWARE TTY BUSY SWITCH) 
DISABLE INTERRUPTS DURING RECORO 



FUNCTION 1713 TTS, 



READ FRAME X. 



READ FRAME X*l. 

ASSUME FRAMES = 1ST BLOCK WORD. 

READ FRAME X+2. 



READ FRAME X+3. 

CHECK FIRST WORD 

AGAINST RBD 

BLOCK LENGTH 

BOUNDRIES. 
CHECK SECOND WORD 

TO BE A LEGAL 

RBD BLOCK ID. 
AZERO * CHECKS SATISFIED. 

CHECK FOR HEX-CORRECTION BLOCK. 

AZERO = CHECKS SATISFIED. 
IF EITHER CHECK NOT SATISFIED* 
SHIFT DATA ONE FRAME 
USE NEXT FRAME 

AS END OF WORD 2, 

AND REPEAT CHECKS. 
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DATE I 12/17/74 



3126 


06CD 


5811 




RTJ» 


RPTF 


3127 


06CE 


0FC8 




ALS 


8 


3128 


06CF 


65t»6 




STA- 


CIK3I1)»I 


3129 


06O8 


580E 




RTJ» 


RPTF 


3130 


0601 


EOFF 




LDQ- 


I 


3431 


06O2 


F8D4 




ADQ» 


PTCNT 


3132 


0603 


0141 




SQZ 


PT05-»-l 


3133 


0604 


18F7 




JHP» 


PT04 


313d 


0605 


6801 


PT05 


AOD» 


PTCNT 


3135 


0606 


EOFF 




LDQ- 


I 


3136 


0607 


OOFE 


PT06 


INQ 


-1 


3137 


0608 


8646 




ADD- 


(INBIl).Q 


3138 


0609 


0141 




SQZ 


PT07-»^1 


3139 


060A 


18FC 




JHP» 


PT06 


3140 


060B 


0101 


PT07 


SAZ 


PT 08-«-sl 


31*1 


060C 


0A13 




ENA 


CKSHER 


3142 


060D 


1818 


PT08 


JHP* 


PTERR+1 


3144 


06DE 


0000 


RPTF 


NUH 





3145 


06DF 


oeoo 




NOP 





3146 


06EO £057 


RPTFOO 


LOQ- 


EQUIP 


3147 


06E1 


02FE 




INP 


-1 


3148 


06E2 


OFCA 




ALS 


10 


3149 


06E3 


Q13C 




SAH 


RP.TF03-»-l 


3150 


06E4 


OFCZ 




ALS 


2 


3151 


06E9 


0135 




SAH 


RPTF02-»-l 


3152 


06E6 


0FC2 




ALS 


2 


3153 


06E7 


0132 




SAH 


RPTF01-*-l 


3154 


06E8 


0A20 




ENA 


$20 


3155 


Q6E9 


03FE 




OUT 


-1 


3156 


06EA 


18F5 


RPTF 01 


JHP» 


RPTFOO 


3157 


06EB 


OOFE 


RPTF02 


INQ 


-1 


3158 


Q6EC 


C546 




LOA- 


tlNBIDtl 


3159 


06EO 


Q2F1 




INP 


RPTF0O-»-l 


3160 


06EE 


6546 




STA- 


(INBID.I 


3161 


06EF 


1CEE 




JHP» 


(RPTF> 


3162 


Q6F0 


0FC6 


RPTF03 


ALS 


6 


3163 


06F1 


0822 




TRA 


Q 


3164 


06F2 


C8EB 




LOA» 


RPTF 


3165 


06F3 
06F4 


9000 
0631 




SUB 


aXPTOl 


3166 


06F5 


0111 




SAN 


PTERR-»-l 


3167 


06F6 


18E9 




MP* 


RPTFOO 


3168 


06F7 


0A14 


PTERR 


ENA 


PTALARH 


3169 


06F8 


60BE 




STA- 


B3 


3170 


06F9 


40 8F 




STQ- 


B4 


3171 


06FA 


E057 




LDQ- 


EQUIP 


3172 


06FB 


0A40 




ENA 


$40 


3173 


06FC 


0300 




OUT 





3174 


06FO 


0400 




EIN 


8 


3175 


06FE 


OCFE 




ENQ 


-1 


3176 


06FF 


C8A7 




LDA* 


PTCNT 


3177 


0700 


6646 




STA- 


(INBIl)tQ 



INPUT RECORD OF LENGTH 
SPECIFIED BY FIRST HOROt 
PLUS THE TRAILING CHECKSUM. 



CQ2ER0 = END OF RECORD + CKSH) 



CALCULATE CHECKSUH. 



VERIFY CHECKSUH CORRECT. 
(ERROR CODE) 



PAPER TAPE INPUT ROUTINE. 

INPUT STATUS- 
CHECK ALARH STATUS, SKIP IF SET. 

CHECK DATA STATUS v SKIP IF SET. 

CHECK BUSY. NOT BUSY= 

1711/12/13 DATA HOLD REG EHPTY 
1721/77 START HOTION INACTIVE. 

FUNCTION START HOTION. 

AHAIT DATA STATUS. 

INPUT DATA 

ALARH STATUS OETECTED. 

RESTORE STATUS IN QREG. 
HANG ON STATUS 

UNTIL HANUALLY CLEARED 

IF FROH FIRST FRAHE INPUT. 
(ERROR CODE) 



FUNCTION 1721/77 STOP HOTION. 
ENABLE INTERRUPTS. 



STORE NEG WO CNT IN BFR. 



60411400 C 



PAGE 71 



SMMOOO 



3178 0701 1CA6 



PAGE 72 



JHP* 



OATEI 12/17/7% 



CP TIL OR J 



3180 
3181 
3182 
3183 
318% 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
319% 
3195 
3196 
3197 
3198 
3199 
3200 

3201 
3202 
3203 
320% 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
321% 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
322% 
3225 
3226 
3227 
3228 



06A7 
06A8 
06A9 
06AA 
06AB 
06AC 
06AD 
06AE 
06AF 
06B0 
06B1 
06B2 
0683 
068% 
06B5 
06B6 
06B7 
06B8 
06B9 
06BA 
06BB 
06BC 
06BO 
06BE 
06BF 
06GO 
06C1 
06C2 
06C3 
06C% 
06C5 
06C6 
06C7 
06C8 
06C9 
06CA 
06CB 
06CC 
06CO 
06CE 
06GF 
0600 
06D1 
0602 
06O3 
06D% 
0605 
0606 
0607 



06A7 
000 Q 
0002 
E057 
02FE 
0138 
OFCF 
0126 
OFCF 
013% 
OFCE 
013B 
OFCB 
0121 
18F% 
0A9F 
A057 
0920 
6057 
0822 
CQOO 
0081 
03FE 
08%% 
60FF 
0500 
6057 
OOFE 
020% 
65%6 
OOFF 
18FC 
OBOO 
£057 
02FE 
OFCB 
013F 
OFCF 
0129 
0FC8 
0137 
OFCE 
EOBF 
0151 
60BF 
E057 
OFCF 
0121 
18E9 
OFCF 



CR 

CR1L0R 

CROO 



CR01 
CR02 



CR03 



CRO% 

CR05 
CR06 
CR07 

NOP 
CROO 



CR11 



CR12 
CR13 



ORG 

NUH 

NUN 

LOQ- 

INP 

SAN 

ALS 

SAP 

ALS 

SAN 

ALS 

SAN 

ALS 

SAP 

JNP» 

ENA 

AND- 

INA 

STA- 

TRA 

LOA 

OUT 

CLR 

STA- 

IIN 

LOQ- 

INQ 

INP 

STA- 

RAO- 

JMP* 

NOP 

LDQ- 

INP 

ALS 

SAN 

ALS 

SAP 

ALS 

SAN 

ALS 

LDQ- 

SQN 

STA- 

LDQ- 

ALS 

SAP 

JMP» 

ALS 



NTUNIT 



2 

EQUIP 

-1 

CROi-»-l 

15 

CR01-*-l 

15 

CR01-*-l 

1% 

CR03-»-l 

11 

CR02-»-l 

CROO 

-$60 

EQUIP 

$20 

EQUIP 

Q 

«N$81 

-1 

A 

I 



EQUIP 

-1 

CR08-»-l 

(INBIl)tl 

I 

CR05 



EQUIP 

-1 

11 

CR15-»-l 

15 

CR12-»-l 

8 

CR12-»-l 

1% 

B% 

1 

B% 

EQUIP 

15 

CR13-*^1 

CRO% 

15 



CARO READER LOADER TYPE 

IINT REJI 

«EXT REJ) INPUT STATUS- 
CHECK %05 NOTOR POWER ON. 

CHECK READY. 

CHECK NOT BUSY. 

DATA STATUS HERE INDICATES *»05. 

CHECK ERROR CHANG IN THS LOOP 
FOR RETRY AFTER FAILURE AT CR1%) 



ENSURE BIT05 SET IN 

EQUIPNENT ADDRESS FOR %30. 



FUNCTION %30 CARO FEED. 

CLEAR BUFFER INDEX. 

DISABLE INTERRUPTS DURING RECORD 

\ 
INPUT OATA. 



(INT REJ) 
CEXT REJ) 



INPUT STATUS. 

CHECK END-OF-OPERATION. 

CHECK FOR ALARN- 

ALARN PRESENT. 
CHECK %05 HOPPER EHPTY- 
NOT CAUSE OF ALARM. RESTORE 
STATUS HOROt 

CHECK FOR PREVIOUSLY FLAGGEO 
ALARM, SAVE 1ST BAD STATUS 



CHECK READY STATUS- 
READER READY, FINISH CARO INPUT. 



60*»11%00 C 



PAGE 72 



O O O O O Q O CTZ) O O O O O 



C O 



SHHOQO 



PAGE 73 



DATEI 12/17/7* 



3229 


06D8 


0123 




SAP 


CR16-*-l 


3230 


0609 


18EO 




JMP* 


CR08 


3231 


06DA 


COFF 


CR15 


LOA- 


I 


3232 


060B 


60BE 




STA- 


B3 


3233 


06DC 


0400 


CR16 


EXN 





3234 


0600 


C046 




LDA- 


INBU 


3235 


06DE 


09FO 




INA 


-2 


3236 


060F 


60BB 




STA- 


BO 


3237 


06EO 


60BO 




STA- 


82 


3238 


06E1 


0A02 




ENA 


2 


3239 


06E2 


6 OFF 




STA- 


I 


32dQ 


06E3 


E5BB 


CR17 


LDQ- 


<B0)»I 


3241 


06E4 


DOFF 




RAO- 


I 


32 42 


06E5 


C5SB 




LOA- 


(BO), I 


3243 


06E6 


OFC* 




ALS 


* 


3244 


06E7 


OFE* 




LLS 


4 


32*5 


06E8 


448B 




STQ- 


(BO) 


3246 


06E9 


OQBB 




RAO- 


BO 


32*7 


06EA 


08*2 




CLR 


Q 


32*8 


06EB 


OFE* 




LLS 


* 


32*9 


06EC 


B5BB 




EOR- 


1B0)»I 


3250 


06EO 


OFEC 




LLS 


12 


3251 


06EE 


44BB 




STQ- 


(BO) 


3252 


06EF 


DOBB 




RAO- 


BO 


3253 


06F0 


B5BB 




EOR- 


(BO, I 


325* 


06F1 


6*BB 




STA- 


(BO) 


3255 


06F2 


OOBB 




RAO-i 


BO 


3256 


06F3 


COFF 




LDA- 


I 


3257 


06F* 


09E9 




INA 


-22 


3258 


06F5 


0101 




SAZ 


CR18-*-l 


3259 


06F6 


18EC 




JMP* 


CR17 


3260 


06F7 


OCFO 


CR18 


ENQ 


-2 


3261 


06F8 


C6*6 




LDA- 


(INBIlliQ 


3262 


06F9 


A081 




ANO- 


HOOFF 


3263 


06FA 


09AF 




INA 


-$50 


326* 


Q6FB 


0101 




SAZ 


CRFLGS-*-l 


3265 


06FC 


1CAB 




JHP» 


(CR1LDR) 


3266 


06FO 


EOBF 


CRFLGS 


LDQ- 


8* 


3267 


06FE 


0A15 




ENA 


CRALARM 


3266 


06FF 


0156 




SON 


CREXIT-*-l 


3269 


0700 


EOBE 




LDd- 


B3 


3270 


0701 


0A50 




ENA 


80 


3271 


0702 


087* 




EAQ 


A 


3272 


0703 


0103 




SAZ 


CR21-*-l 


3273. 


070*1 


*OBF 




STQ- 


84 


327* 


0705 


0A16 




ENA 


CREOP 


3275 


0706 


1808 


CREXIT 


JMP* 


CR24 


3276 


0707 


0C3B 


CR21 


ENO 


59 


3277 


0708 


8680 


CR22 


ADD- 


(82). Q 


3278 


0709 


01*2 




SQZ 


CR23-*-l 


3279 


070A 


OOFE 




INQ 


-1 


3280 


0708 


18FC 




JMP* 


CR22 


3281 


070C 


0101 


CR23 


SAZ 


CR2*-*-l 



CHECK BUSY STATUS. 

WAIT NOT BUSY FOR PROPER OFFSET, 

SAVE COLUMN COUNT. 
ENABLE INTERRUPTS. 



(COLUMN 1+*X) 
(COLUMN 2+4X) 

WORD 1+3X. 

(COLUMN 3+*X) 

HORO 2+3X. 

(COLUMN 4*4X) 
HORO 3t3X. 



BUFFER PACKED- 
NO. RECYCLE. 

CHECK FOR NON-RBO CARD 

(QL BINARY) 



NOT BINARY, EXIT LOAOER. 

(ERROR CODE) 
CHECK ALARM FLAG. 
OK. 



CHECK COLUMN COUNT. 
IMPROPER END-OF-OPERATION. 
(ERROR CODE) 



CALCULATE CHECKSUH. 



SKIP IF CHECKSUM CORRECT. 
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OATEt 12/17/7* 



3282 
3283 
328 V 



07QD 0A13 
070E 60BE 
070F 1C98 



CR2* 



ENA 
STA- 

JMP* 



CKSHER 

B3 

(CR1LDR) 



(ERROR CODE) 

FLAG ERROR FOR SUM, 

EXIT LOADER 



PTC2 



3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

329V 

3295 

3296 

3297 

3299 
3300 
3301 
3302 
3303 
330* 
3305 
3306 
3387 
33Q8 
3309 
3310 
3311 
3312 
3313 
33.1* 

3316 
3317 
3318 
3319 
3320 

3322 
3323 
332* 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 



06A7 
06A8 
06A9 
06AA 
06AB 
06AC 
06AO 
06AE 
06AF 
06B0 
06B1 
06B2 
06B3 
06B* 
06B5 
06B6 
06B7 
06B8 
06B9 
06BA 
068B 
06BC 
06BO 
06BE 
06BF 
06C0 
06C1 



06C2 
06C3 
86C* 
06C5 
06C6 

06C7 
06C8 
06C9 
06CA 
06CB 
06CC 
06CD 
06CE 
06CF 
0600 
0601 
0602 



06A7 
0000 
000* 
E057 
C8FC 
0FC9 
8073 
03FB 
COBC 
0107 
B07C 
0106 
G827 
08*2 
0103 
*82* 
1803 
6822 
0A10 
6822 
58*E 
CQOO 
1806 
68FA 
0C39 
*OBB 
581C 
1806 
0006 

O0C1 
COCl 
09CD 
010E 
1832 

C**»6 
B812 
0113 
E0*6 
C201 
6800 
0C39 
C6*6 
0114 
COOO 
0A10 
60C6 



UNIT 

OP1LOR 

DP01 



DP02 
OP02A 



DP03 

OPROERR 

OPO* 
DP10 

OP10A 



ORG 

NUH 

NUH 

LOQ- 

LDA» 

ALS 

AOD- 

OUT 

LOA- 

SAZ 

EOR- 

SAZ 

LDA» 

CLR 

SAZ 

STQ* 

JMP* 

STA» 

ENA 

STA* 

RTJ» 

LDA- 

VFD 

STA» 

ENQ 

STQ- 

RTJ» 

JMP» 

EQU 

RAO- 

LDA- 

INA 

SAZ 

JMP* 

LDA- 

EOR» 

SAN 

LDQ- 

LDA- 

STA» 

ENQ 

LOA- 

SAN 

LDA- 

ENA 

STA- 



MTUNIT 



* 

EQUIP 

UNIT 

9 

BIT08 

OP01-* 

Bl 

DP 02- •-2 

HFFFF 

DP02-»-i 

OPNAML 

Q 

DP02-»-l 

OPNAML 

DP02A 

DPNAML 

$10 

DP ADR 

LOADR 



N8/$18,X8/JHPDIF 

DP 02 

57 

BO 

DPRQHR 

OP10 

JMPOXFCDPO3-DP02) 

B6 

B6 

-50 

OPil-*-l 

DP 09 

(INBli) 
H2050 
OP10A-»-l 
INBI1 
ltQ 
DPNAML 
57 

(INBI1),Q 
QP u-»-l 



$10 

RWOFLG 



DISK PACK LOADER TYPE 

SELECT UNIT. 

SKIPsTEST LOADING CNOT SEARCH). 

ALLOW LISTING OF PRODR. MODS. 

SKIP IF PREVIOUS READ NOT NAMBLK 

SPEED UP SEARCH. 

(BYPASS QUICK LOOK BINARY) 
REWIND FILE TO SMM 

ON FIRST SUBROUTINE ENTRY. 

MODIFY DP02 INSTRUCTION 

FOR SUBSEQUENT PASSES. 
(BUFFER TO INCLUDE EOF MARKER) 



READ DATA. 
OPERATION OK. 



(NO ALARM) 



RETURN HERE ON ALARM. 
(ERROR COUNT) 

AZERO * ABORT. 

RETRY OPERATION 50 TIMES 

CHECK BLOCK TYPE- 
SKIP IF NOT NAMBLK. 



SAVE NEXT NAMBLK SECADOR 
(MAXIMUM RBO RECORD LENGTH) 
CHECK (LWA+1) FOR 

SMM EOIT END-OF-FILE FLAG. 
RESET REWIND 

ON NEXT SUBROUTINE ENTRY. 
SET DISK EOF FLAG 
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3334 


0603 


68E4 




STA» 


OP02 




3335 


06O4 


COBF 


DP11 


LOA- 


B4 




3336 


06D5 


0102 




SAZ 


OP12-»-l 




3337 


0606 


0A18 




ENA 


DPALARH 




3338 


0607 


60BE 




STA- 


B3 




3339 


0608 


1CCF 


0P12 


JHP» 


(DP1LOR) 




3341 


0609 


0000 


DPNAHL 


NUH 







33*2 


060 A 


2050 


H2050 


NUM 


$2050 




3343 


06OB 


0000 


OPAOR 


NUH 







3345 


06DC 


0000 


DPRDHR 


NUH 







3346 


0600 


E057 




LOQ- 


EQUIP 




3347 


060E 


0001 




INQ 


1 ■ 




3348 


06DF 


0B00 




NOP 





_ 


3349 


O6E0 


02FE 




INP 


-1 




3350 . 


06E1 


68F9 




STA» 


OPAOR 




3351 


06E2 


C046 


CDDOVLY 


LDA- 


INBIi 


V- 


3352 


06E3 


EQBB 




LDQ- 


BO 




3353 


06E4 


0832 




AAQ 


Q 




3354 


06E5 


09FE 




INA 


-1 


.... 


3355 


06E6 


60BB 




STA- 


BO 




3356 


06E7 


0O01 




INQ 


1 




3357 


06E8 


44BB 




STQ- 


(BO) 




3358 


06E9 


E057 


0P08 


LDQ- 


EQUIP 




3359 


06EA 


0003 


INQX 


INQ 


3 




3360 


06EB 


0814 




TRQ 


A 




3361 


06EC 


A080 




AND- 


HFOOO 




3362 


06ED 


0102 




SAZ 


ADQX-* 




3363 


06EE 


FOOO 




ADQ- 







3364 


06EF 


17FC 


ADQX 


NUH 


S17FC 




3365 


06F0 


COBB 




LDA- 


BO 




3366 


06F1 


03FE 




OUT 


-1 




3367 


86F2 


5808 




RTJ» 


CKOPAL 




3368 


Q6F3 


1CE8 




JNP» 


(DPRDHR) 




3369 


86F4 


E077 




LDQ- 


BIT12 




3370 


06F5 


08B2 




LAQ 


Q 




3371 


06F6 


0143 




SQ2 


DPERR-»-l 




3372 


06F7 


08E3 




RAO* 


OPAOR 




3373 


06F8 


5810 


DP09 


RTJ» 


LOAOR 




3374 


06F9 


18EF 




JHP* 


OP08 




3375 


06FA 


60BF 


OP ERR 


STA- 


B4 




3376 


06FS 


0C01 




ENQ 


1 




3377 


86FC 


1EDF 




JHP* 


(QPROHR),Q 




3379 


06FD 


OQOO 


CKOPAL 


NUN 







3360 


06FE 


E057 




LDQ- 


EQUIP 




3381 


06FF 


02FE 




INP 


*-l 




3382 


0700 


OFCE 




ALS 


14 




3383 


0701 


0121 




SAP 


1 




3384 


0702 


18FB 




JHP* 


CKDPAL+i 



ERROR FLAG. 

(ERROR CODE) 

FLAG ERROR TO LOR CALLER. 

EXIT LOADER. 



DISK PACK READ/WRITE ROUTINE. 

INPUT ADDRESS STATUS (FOR RETRY) 
PREPARE BUFFER ADDRESS 

STORE BUFFER LHA+i IN FNA-1. 



REAO DATA. 

CHECK ALARH STATUS. v 

RETURN HERE FROM 

STATUS IF ALARH SET. 
CHECK DEFECTIVE TRACK FLAG. 
IF SET, INCREASE TO NEXT SECTOR 



ERROR FLAG « LAST FAILING STATUS 
EXIT TO CALLERS ERROR ROUTINE. 

INPUT STATUS. 

CHECK EUSY- 
HAIT NOT BUSY. 
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DATE I 12/17/7* 





3385 


0703 


OFCC 




ALS 


12 




. , 


3386 


070* 


0122 




SAP 


NOCPAL-»-l 


CHECK ALARM- 




3387 


0705 


08F7 




RAO* 


CKCPAL 


RETURN TO P+2 ON ALARM, 




3388 


0706 


0FC6 




ALS 


6 


RESTORE STATUS WORD. 




3389 


0707 


1CF5 


NODPAL 


JMP» 


CCKDPAL) 






3391 


0708 


0000 


LDADR 


NUM 





LOAD AOORESS ROUTINE. 




3392 


0709 


C801 




LDA» 


OPAOR 






3393 


07QA 


E057 




LDQ- 


EQUIP 




, \. 


339* 


070B 


0001 




INQ 


1 






3395 


070C 


OBOO 




NOP 









3396 


0700 


03FE 




OUT 


-1 


POSITION FILE, 


, 


3397 


070E 


S8EE 




RTJ» 


CKDPAL 


CHECK ALARM STATUS. 




3398 


070F 


1CF8 




JMP* 


f LDADR) 


(NO ALARM) 




3399 


0710 


OFC* 




ALS 


* 


RECEIVED ALARM. 


..< 


3*00 


0711 


0121 




SAP 


LDADRi-»-i 


CHECK FOR ILLEGAL ADDRESS. 




3*01 


0712 


08C8 




RAO» 


OPAOR 


INCREASE ADDRESS IF ILLEGAL, 




3*02 


0713 


18F5 


L0A0R1 


JMP» 


LOAOR+i 


REPEAT FUNCTION. 
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SHM000 




PAGE 


77 DATE* 


3405 




***9**««*«**»***«*» COD OISK DRIVER 


3406 




* 






3407 




* 






3408 


06A7 




ORG 


MTUNIT 


3409 


06A7 0000 


COUNIT 


NUM 





3410 


06A8 0005 


CD1LDR 


NUM 


5 


3411 


06A9 E057 


COP 01 


LDQ- 


EQUIP 


3412 


06AA C8FC 




LOA» 


CD UNIT 


3413 


06AB 0FC9 




ALS 


9 


3414 


06AC 8073 




ADO- 


BIT08 


3415 


06AO 03FB 




OUT 


CDPQ1-* 


3416 


06AE coac 




LDA- 


Bl 


3417 


06AF 0107 




SAZ 


CDP02-»-2 


3418 


06BO B07C 




EOR- 


HFFFF 


3419 


06B1 0106 




SAZ 


CDP02-*-l 


3420 


06B2 C827 




LOA» 


CDPNAH 


3421 


06B3 0842 




CLR 


Q 


3422 


06B4 0103 




SAZ 


C0PD2-»-l 


3423 


06B5 4824 




STQ» 


CDPNAH 


3424 


06B6 1803 




JMP* 


CDP02A 


3425 


06B7 6822 




STA» 


COPNAM 


3426 


06B8 OA10 


CDP02 


ENA 


$10 


3427 


06B9 6822 


CDP02A 


STA* 


CDPAOR 


3428 


06BA 584C 




RTJ» 


CDLOAOR 


3429 


06BB COOO 




LDA- 





3430 


06BC 1806 




VFO 


N8/SI89X8/CJMPDF 


3431 


06BD 68FA 




STA» 


COP02 


3432 


06BE 0C39 


CDP03 


ENQ 


57 


3433 


06BF 40BB 




STQ- 


BO 


3434 


06C0 581C 




RTJ» 


CDRDHR 


3435 


06C1 1806 




JMP* 


CDP10 


3436 


0006 




EQU 


CJNPDFCCOP03-CDP02) 


3438 


06C2 O0C1 


COPRDER 


RAO- 


B6 


3439 


06C3 C0C1 




LDA- 


B6 


3440 


06C4 09CO 




INA 


-50 


3441 


06C5 010E 




SAZ 


COPil-»-l 


3442 


06C6 1829 


COP04 


JHP» 


0009 


3443 


06C7 C446 


CDP10 


LDA- 


(INBI1) 


3444 


06C8 8812 




EOR» 


CH2050 


3445 


06C9 0113 




SAN 


COP10A-»-l 


3446 


06CA E046 




LDQ- 


INBI1 


3447 


06CB C201 




LDA- 


1»Q 


3448 


06CC 6800 




STA* 


CDPNAH 


3449 


06CO 0C39 


CDP10A 


ENQ 


57 


3450 


06CE C646 




LOA- 


(INBIDtQ 


3451 


06GF 0114 




SAN 


CDPii-»-i 


3452 


0600 COOO 




LDA- 





3453 


0601 0A10 




ENA 


S10 


3454 


0602 60C6 




STA- 


RHDFLG 


34S5 


0603 68E4 




STA» 


COP02 


3456 


0604 COBF 


CDP11 


LDA- 


B4 


3457 


0605 0102 




SAZ 


CDP12-*-! 



VERLAY »»»»•»•»»♦•»♦»♦»•♦»»••• 
CARTRIDGE OISK LOADER TYPE 

SELECT UNIT 

SKIP ■ TEST LOADING (NOT SEARCH) 

ALLOW LISTING OF PROOR. HOD. 

SKIP IF PREVIOUS REAO NOT NAHBLK 

SPEED UP SEARCH 

IBYPASS QUICK LOOK BINARY) 
REMIND FILE TO SHH 
ON FIRST SUBROUTINE ENTRY 

HODIFY CDP02 INSTRUCTION 
FOR SUBSEQUENT PASSES 
(BUFFER TO INCLUDE EOF HARKER) 

READ DATA 

OPERATION OK. (NO ALARH) 



RETURN HERE ON ALARH 
(ERROR COUNT) 

AZERO = ABORT 

RETRY OPERATION 50 TIHES 

CHECK BLOCK TYPE 

SKIP IF NOT NAHBLK 



SAVE NEXT NAHBLK SECADDR 
(HAXIHUH RBD RECORD LENGTH) 
CHECK (LMA+1) FOR 

SHH EOIT ENO OF FILE FLAG 
RESET REMIND 

ON NEXT SUBROUTINE ENTRY 
SET DISK EOF FLAG 

ERROR FLAG 
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DATE* 12/17/74 



3*58 


06D6 0A19 




ENA 


CDPALH 


3459 


0607 60BE 




STA- 


B3 


3460 


0608 1CCF 


CDP12 


JMP* 


CC01LOR) 


3462 


0609 0000 


COPNAM 


NUH 





3463 


060A 2050 


CH2050 


NUH 


$2050 


3464 


06OB 0000 


COPACR 


NUH 





3466 


06OC OQOO 


CORDWR 


NUH 





3467 


0600 E057 




LDQ- 


EQUIP 


3468 


060E 0001 




INQ 


1 


3469 


06DF OBOO 




NOP 





3470 


06E0 02FE 




INP 


-1 


3471 


06E1 68F9 




STA» 


COPAOR 


3472 


06E2 OOFO 




INQ 


-2 


3473 


06E3 COBB 




LDA- 


BO 


3474 


06E4 0901 




INA 


1 


3475 


06E5 03FE 




OUT 


-1 


3476 


06E6 E057 


CD08 


LDQ- 


EQUIP 


3477 


, 06E7 0O03 




INQ 


3 


3478 


06EB C046 




LOA- 


INBI1 


3479 


06E9 03FE 




OUT 


-1 


3480 


06EA 5808 




RTJ» 


CKCOAL 


3481 


06E8 1CFQ 




JNP* : 


fCOROMR) 


3482 


06EC 60BF 


CDERR 


STA- 


84 


3483 


06ED 0C01 




ENQ 


1 


3484 


06EE 1EE0 




JHP» 


(CORDMR)«Q 


3485 


06EF 5817 


CO09 


RTJ* 


CDLOAOR 


3466 


06F0 OOFE 




INQ 


-1 


3487 


06F1 18F1 




JHP» 


CO 08-3 


3489 


06F2 0000 


CKCOAL 


NUH 





3490 


06F3 E057 




LDQ- 


EQUIP 


3491 


06F4 02FE 




INP 


-1 


3492 


06F5 6000 




STA- 





3493 


06F6 0000 


COSTAT 


NUH 





3494 


06F7 OFCE 




ALS 


14 


3495 


06F8 0121 




SAP 


1 


3496 


06F9 18F9 




JHP* 


CKCDAL+1 


3497 


06FA OFCC 




ALS 


12 


3498 


06FB 0129 




SAP 


NOCOAL-»-l 


3499 


06FC 08F5 




RAO» 


CKCOAL 


3500 


06FO OOFE 




INQ 


-1 


3501 


06FE 02FE 




INP 


-1 


3502 


06FF 0001 




INQ 


1 


3503 


0700 02FE 


CO09A 


INP 


-1 


3504 


0701 OFCE 




ALS 


14 


3505 , 


0702 0121 




SAP 


CD09B-»-l 


3506 


0703 18FC 




JHP» 


CO09A 


3507 


0704 C8F1 


C009B 


LOA» 


COSTAT 


3508 


0705 1CEC 


NOCDAL 


JHP» 


(CKCOAL) 



(ERROR CODE) 

FLAG ERROR TO LDR CALLER 

EXIT 



CART. DISK READ/WRITE ROUTINE 



INPUT AOORESS STATUS (FOR RETRY) 



BUFFER LENGTH FOR 1739 
LOAD BUFFER LENGTH 



RECOVERY 



RESTORE ORIVE ON ALARH 



HAIT BUSY TO DROP 
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DATE I 12/17/74 





3510 


0706 0000 


COLOADR 


NUM 









3511 


0707 EQ57 




LDQ- 


EQUIP 






3512 


0708 QD01 




INQ 


1 






3513 


0709 OAOO 




ENA 









35i<» 


070A 03FE 




OUT 


-1 






3515 


0708 OOFE 




INQ 


-1 






3516 


070C 02FE 


LDADR3 


INP 


-1 






3517 


0700 A06F 




A NO- 


BIT04 


HAIT FOR EOP 




3518 


070E 0111 




SAN 


1 






3519 


070F 18FC 




JMP« 


LDADR3 






3520 


0710 0004 




INQ 


4 


FILE ADDRESS STATUS 




3521 


0711 02FE 




INP 


-1 


GET ACTUAL FILE AOORESS 




3522 


0712 A07D 




AND- 


H000F 


CHECK FOR SEEK COMPLETE BITS **» 




3523 


0713 6000 




STA- 









352<i 


0714 0000 


F33 








ZERO FOR 1739 




3525 


0715 COOO 




LDA- 









3526 


0716 180F 




VFD 


N8/$18,X8/CJMP 






3527 


0717 68F1 




STA» 


COLQADR+3 






3528 


0718 C8FB 


F33G0 


LDA* 


F33 






3529 


OOOF 




EQU 


CJHPCF33GO-CDLDADR- 


■3) 




3530 


0719 0104 




SAZ 


4 


SKIP IF 1739 




3531 


071A caco 




LDA* 


COPAOR 


MUST BE A 1733-2 **» 




3532 


071B AOOO 




AND 


*N!SFFDF 


»«♦ 


w 




071C FFOF 












3533 


071O 181C 




JHP* 


COEXT 


•** 




3534 


071E OOFC 




INQ 


-3 






3535 


071F 0800 




NOP 









3536 


0720 02FE 




INP 


-1 


GET CYLINDER POSITION 




3537 


0721 A082 




AND- 


HFFOO 






3538 


0722 6000 




STA- 









3539 


0723 0000 


CDCUAO 


NUH 









3540 


0724 C886 




LDA* 


CDPAOR 






3541 


0725 0C1F 




ENQ 


$1F 






3542 


0726 08B2 




LAQ 


Q 






3543 


0727 0DE2 




INQ 


-SID 






3544 


0728 0172 




SQM 


CDLDA2-*-l 


IS SECTOR AOORESS ILLEGAL (17391 




3545 


0729 8072 




ADO- 


BIT07 


YES INCREMENT CYLINDER/HEAD 




3546 


072A 0CE2 




ENQ 


-SID 


ZERO SECTOR AOORESS 


- r 


3547 


072B 0010 


CDL0A2 


INQ 


$10 






354,6 


072C AOOO 
0720 FF80 




AND 


*NSFF80 






3549 


072E 0874 




EAQ 


A 






3550 


072F E081 




LDQ- 


HOOFF 






3551 


0730 Q8B2 




LAQ 


Q 


•♦» 




3552 


0731 AQ82 




AND- 


HFFOO 


*** 




3553 


0732 4000 




STQ- 





*•* 




3554 


0733 0000 


GDNHHS 


NUM 


■' o ■' ■ 


««* 




3555 


0734 98EE 




SUB* 


CDCUAO 






3556 


0735 0122 




SAP 


2 


SKIP IF FORWARD SEEK 




3557 


0736 0864 




TCA 


A 


COMPLEMENT CYL ADDRESS 




3558 


0737 0920 




INA 


S20 


SET BIT 5 REVERSE SEEK 
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3559 
3560 
3561 
3562 
3563 
356% 
3565 
3566 
3567 
3568 



3570 
3571 
3572 
3573 
357* 
3575 



3577 
3578 
3579 
3580 
3581 
3582 



0738 
0739 
073A 
073B 
073C 
073D 
073E 
073F 
07% 
0741 



88FA 
E057 
0D01 
03FE 
58B5 
1CC8 
0FC5 
0121 
D89A 
18C5 



06A8 



06A8 0006 
06A9 18FF 



06A8 



Q6A8 0007 
06A9 18FF 



CDEXT 



CDAD1 



PAGE 


80 


EOR* 

LDQ- 

INQ 

OUT 

R1J* 

JMP* 

ALS 

SAP 

RAO» 

JMP* 


CDNHHS 

EQUIP 

1 

-1 

CKCDAL 

(CDLOADR) 

5 

CDAOi-»^i 

COPADR 

CDLOADR-H 


ORG 


MTUNIT+i 


MUM 
NUN 


6 
$16FF 


ORG 


MTUNIT+1 


NUM 
NUM 


7 
J18FF 



DATE I 12/17/7% 



PUT IN THE HEAD AND SECT 



CHECK FOR AORS ERROR 



**» 

»»* 
*** 



INSERT LOADER TYPE 6. HERE 



INSERT LOAOER TYPE 7 HERE 



358% 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
359% 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
360% 

3605 
3606 
3607 



06A7 
06A8 
06A9 
06 A A 
06AB 
06AC 
06AD 
06AE 
06AF 
06B0 
06B1 
0682 
06B3 
068% 
06B5 
0686 
0687 
0688 
06B9 
06BA 
0688 
06BC 



06A7 

0000 
0008 
C057 
A083 
0908 
0822 
C8F9 
09F8 
0136 
C8F6 
60BF 
0A17 
60BE 
60C2 
1CF2 
090% 
0FC8 
8000 
1%%2 
03FE 
6813 
0DF7 



***************************** 
ORG HTUNIT 



MT8UN 
MT8L0R 



MT8LDX 





ADC 

LDA- 

AND- 

INA 

TRA 

LDA* 

INA 

SAM 

LOA» 

STA- 

ENA 

STA- 

STA- 

JMP» 

INA 

ALS 

AOO 





MT8 

EQUIP 

HFFFO 

8 

Q 

MT8UN 

-% 

MT8L0X-»-l 

MT8UN 

B% 

NTPE 

B3 

B7 

(HT8LDRI 

% 

8 

«N21%%2 



OUT -1 
STA» MT8L1 
INQ -8 



8000 MAGTAPE LOAOER OVERLAY " 



UNIT NUMBER 

ENTRY (OE VICE TYPEl 

GET HES 

MASK DIRECTOR BITS 



GET UNIT NR 

MINUS IS LEGSL (0-3) 

TO ERROR 8-BOX 

ERROR CODE (ILLEGAL UNIT) 

TERMINATE FLAG 
EXIT DRIVER 



UNIT HOOE 

SELECT UNIT 
SAVE SELECT CODE 



JU 
JU 

JU 
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OATE« 12/17/71* 



3608 


068D 02FE 




INP 


-1 


GET STATUS 


3609 


06BE OFCF 




ALS 


15 


CHECKREADY 


3610 


06BF 0131 




SAM 


MT8L0Y-»-l 




3611 


06C0 18FC 




JMP* 


»-3 


NOT READY, HAIT 


3612 


06C1 02FE 


MT8L0Y 


INP 


-1 


RESTATUS (DELAY FOR 7/9 TRACK) 


3613 


06C2 A079 




ANO- 


BIT14 




3614 


06C3 680C 




STA* 


MT89TR 


ZERO IS 


3615 


06C4 0008 




INQ 


8 


7 TRACK 


3616 


06C5 0103 




SAZ 


MT8L2-»-l 


SKIP FOR 7 TRACK 


3617 


06C6 C80 8 




LOA» 


MT8L1 


GET SELECT FUNCTION 


3618 


06C7 0910 




INA 


S10 


SELECT MODE 1 


3619 


06C8 03FE 




OUT 


-1 


FOR 9 TRACK 


3620 


06C9 COBC 


HT8L2 


LOA- 


Bl 




3621 


06CA 0125 




SAP 


MT8L3-*-l 


MINUS IS LIST 


3622 


06CB COBO 




LDA- 


B2 




3623 


06CC 0113 




SAN 


MT8L3-»-i 


ZERO ON FIRST PASS LIST 


3624 


06CD 1822 




JMP» 


MT8LRH 


FIRST PASS LISTS REHIND TAPE 


3625 


06CE 0000 


HT8L1 








HOLDS SELECT FUNCTION 


3626 


06CF 0000 


MT89TR 








ZERO IS SEVEN TRACK 


3627 


06O0 C046 


HT8L3 


LDA- 


INBI1 


RBO BUFFER FHA (SXF3F) 


3628 


D6D1 09FD 




INA 


-2 




3629 


0602 60BB 




STA- 


BO 


FWA-2 


3630 


0603 C81C 




LDA* 


MT8LRH 


REAO CONTROL HORO(SCOOO) 


3631 


0604 64BB 




STA- 


(B01 


INTO FHA-2 


3632 


06D5 DOBS 




RAO- 


BO 


FHA-1 


3633 


06D6 COBB 




LDA- 


BO 




3634 


0607 8000 

0608 OOAO 




AOO 


= N2A0 


LENGTH 


3635 


0609 64B8 




STA- 


(BO) 


LWA INTO FMA-1 


3636 


060A 0901 




IN A 


1 


LWA+1 


3637 


06DB 60FF 




STA- 


I 




3638 


060C C07A 




LDA- 


BIT15 


$8000 


3639 


0600 64FF 




STA- 


(I) 


TERMINATE FUNCTION INTO LHA*1 


3640 


060E 0DF7 




INQ 


-8 




3641 


06OF 02FE 


MT8L5 


INP 


-1 


GET STATUS 


3642 


06E0 A06C 




AND- 


BIT 01 


CHECK BUSY 


3643 


06E1 0101 




SAZ 


MT8L4-*-l 




3644 


06E2 18FC 




JMP» 


MT8L5 


HANG ON BUSY 


3645 


06E3 COBB 


MT8L4 


LDA- 


BO 


FHA-1 


3646 


06E4 09FE 




INA 


-1 


FHA-2 


3647 


06E5 OBOO 




NOP 







3648 


06E6 03FE 




OUT 


-1 


START BUFFER,FHA-2 IN A 


3649 


06E7 02FE 


HT8L6 


INP 


-1 


GET STATUS 


3650 


06E8 0131 




SAM 


MT8L7-»-l 


MINUS IS EOP 


3651 


06E9 18F0 




JMP* 


MT6L6 


HAIT FOR EOP 


3652 


06EA 6000 


MT8L7 


STA- 







3653 


06EB 0000 










HOLDS STATUS 


3654 


06EC A075 




ANO- 


BIT 10 


CHECK FOR FILEMARK 


3655 


06EO 0105 




SAZ 


MT8LB-»-l 


ZERO MEANS NO EOF 


3656 


06EE 0O08 




INQ 


6 




3657 


06EF COOO 
06F0 2700 


MT8LRH 


LDA 


=N$2700 


REHINO TO 


3658 


06F1 03FE 




OUT 


-1 


LOADPOINT 
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3699 


06F2 1800 


HT8L8 


JMP» 


HT8L3 


READ RECORD 


3660 


06F3 C8F7 


MT8LB 


LDA» 


MT8L7+1 


6ET STATUS BACK 


3661 


06F4 AOOO 
06F5 01EC 




AND 


-NS1EC 


LP/EOT/ILL/LD/PF/PE/ 


3662 


06F6 Q10F 




SAZ 


HT8LC-»-l 


ZERO= NO ERROR 


3663 


06F7 DQCi 




RAO- 


B6 


UPDATE ERROR COUNT 


3664 


06F8 0A17 




ENA 


MTPE 


ERROR CODE 


3665 


06F9 60BE 




STA- 


B3 


INTO B-BOX 


3666 


06FA C8F0 




LDA» 


HT8L7+1 


ERROR STATUS 


3667 


06FB 60BF 




STA- 


B4 


INTO B-BOX 


3668 


06FC C0C1 




LOA- 


B6 




3669 


06FD 09F7 




INA 


-8 




3670 


06FE 0105 




SAZ 


HT8L0-*-l 


ERROR 7 TIHES EXIT 


3671 


06FF COOO 
0700 2600 




LDA 


=N$2600 


BACKSPACE FUNCTION 


3672 


0701 0008 




INQ 


8 




3673 


0702 03FE 




OUT 


-1 


BACKSPACE ON ERROR 


3674 


0703 18EE 




JMP* 


MT8L8 


AND REPEAT REAO 


3675 


0704 0A17 


MT8LD 


EN A 


MTPE 




3676 


0705 60C2 




STA- 


B7 


TERMINATE FLAG 


3677 


0706 C8C8 


MT8LC 


LDA» 


HT89TR 


GET TRACK BIT 


3678 


0707 0101 




SAZ 


MT8LE-»-l 


SKIP FOR 7 TRACK 


3679 


0708 1C9F 


MT8L11 


JMP» 


IHT8L0R) 


EXIT LOAOER 


3681 


0709 C046 


MT8LE 


LOA- 


INBI1 


FHA OF INPUT DATA 


3682 


070A 60BB 




STA- 


BO 




3683 


070B 60FF 




STA- 


I 




3684 


070C 093C 




INA 


60 




3685 


0700 60BO 




STA- 


82 


MAX. BUFFER AODR. 


3686 


070E 0842 


MT8LF 


CLR 


Q 


STORE 8 FRAMES IN 


3687 




* 






3C0MPUTER WORDS 


3688 


070F C4BB 




LDA- 


(BO) 


FRAME 1 


3689 


0710 0FE6 




LLS 


6 




3690 


0711 OOBB 




RAO- 


BO 




3691 


0712 B4BB 




EOR- 


(BO) 


FRAME 2 


3692 


0713 0FE8 




LLS 


8 




3693 


0714 OOBB 




RAO- 


BO 




3694 


0715 C4BB 




LOA- 


(BO) 


FRAME 3 


3695 


0716 0FC2 




ALS 


2 




3696 


0717 0FE4 




LLS 


4 




3697 


0718 44FF 




STQ- 


(I) 


WORD 1 


3698 


0719 OOFF 




RAO- 


I 




3699 


071A 0842 




CLR 


Q 




3700 


0718 OOBB 




RAO- 


BO 




3701 . 


071C B4BB 




EOR- 


(BO) 


FRAME 4 


3702 


0710 0FE6 




LLS 


6 




3703 


071E OOBB 




RAO- 


80 




3704 


071F B4BB 




EOR- 


(BO) 


FRAME 5 


3705 


0720 0FE6 




LLS 


6 




3706 


0721 OOBB 




RAO- 


BO 




3707 


0722 B4BB 




EOR- 


(80) 


FRAME 6 


3708 


0723 0FE4 




LLS 


4 





60411400 C 



PAGE 82 



t 



f \ r 

/ 



o n ( 



i \ 



.OOOOO 



O O C 



) O 



o o o o c 



/~^\ 



SHHOOO 



3709 


072* 


**FF 


3710 


0725 


DOFF 


3711 


0726 


0FE2 


3712 


0727 


DOBB 


3713 


0728 


B*8B 


371V 


0729 


0FE6 


3715 


072A 


DOBB 


3716 


0728 


B*BB 


3717 


072C 


0FE8 


3718 


0720 


**FF 


3719 


072E 


DOFF 


3720 


072F 


COFF 


3721 


0730 


BOBD 


3722 


0731 


0102 


3723 


0732 


DOBB 


372* 


0733 


18DA 


3725 


073* 


1803 


3726 







HT8L10 



PAGE 


83 


ST&- 


(I) 


RAO- 


I 


LLS 


2 


RAQ- 


BO 


EOR- 


(B01 


LLS 


6 


RAO- 


BO 


EOR- 


(BO! 


LLS 


8 


STQ- 


(I) 


RAO- 


I 


LDA- 


I 


EOR- 


B2 


SAZ 


MT8L10-»-l 


RAO- 


BO 


JMP» 


MT8LF 


JMP» 


MT8L11 



OATEt 12/17/7* 



HORD 2 



FRAME 7 

FRAHE 8 
HORD 3 



SKIP IF COMPLETE 

CONTINUE 

EXIT CONVERSION 



JU 



3729 




06A8 




3730 






* 


3731 ; 






* 


3732 






* 


3733 


06A8 


0008 




373* 


06A9 


18FF 




3736 




OOCA 




3737 


OQCA 


0000 




3738 




099B 





ORG MTUNIT+i 

DUMMY OVERLAY TO AID MBS LOAD 



NUM 
NUM 



ORG 
NUM 
ORG 



8 
S18FF 



CONUSE 



MBSOLY 



THIS ORG IS TO FORCE OVERLAY 
BLOCK FOR MBS OVERLAY 
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OATEl 12/17/7* 



3740 
3741 
37*2 
3743 

37*4 



* » 

* BEGIN MBS SUBROUTINES * 

* » 



3746 


099B 0000 


INEOOO 


NUH 





37*7 


099C COFF 




LDA- 


I 


3748 


0990 0106 




SAZ 


PROC0-»-l 


3749 


099E 0901 




INA 


1 


3750 


099F 0111 




SAN 


1 


3751 


09AO 1811 




JMP» 


PR0C2A 


3752 


09A1 01*2 




SQ.Z 


PROC0-»-l 


3753 


09A2 C034 




LOA- 


H0G2 


375* 


09A3 0111 




SAN 


PR0C2B-»-l 


3755 


09A* 1CF6 


PROCO 


JMP» 


CINE0001 


3756 


09A5 0814 


PR0C2B 


TRQ 


A 


3757 


09A6 0*20 




RAO- 


CADINST) 


3758 


09A7 E*20 




LDQ- 


CAOINST) 


3759 


09A8 6620 




STA- 


tAOINST),Q 


3760 


09A9 0F*2 




ARS 


2 


3761 


09AA 0822 




TRA 





3762 


09AB COFF 




LDA- 


I 


3763 


09AC 6A00 
09AD 00B2 




STA 


INT003-1.Q 


376* . 


09AE 0FA2 


PR0C9 


QLS 


- 2 


3765 


09AF 1*00 
09BO 01B9 




JMP* 


EXITL 


3766 


09B1 0F22 


PR0C2A 


QRS 


2 


3767 


09B2 CAOO 
09B3 0090 




LOA 


INT0Q2-1,Q 


3768 


09B* B07A 




EOR- 


BIT15 


3769 


09B5 6A0O 
09B6 009A 




STA 


INT002-1 > Q 


3770 


09B7 602E 




STA- 


INTFLG 


3771 


09B8 C091 




LDA- 


TSACTV 


3772 


09B9 6876 




STA» 


INT005 


3773 


09BA CAOO 
09BB 00B3 




LOA 


INTOO*-1,Q 


3774 


09BC 6091 




STA- 


TSACTV 


3775 


09BD 5*1F 




RT J- 


(FHAEI) 


3776 


09BE *127 




STQ- 


LINENO.I 


3777 


09BF 003B 




RAO- 


TK6* 


3778 


09C0 Cl*3 




LDA- 


RBIT. I 


3779 


09C1 0113 




SAN 


PRCC10-»-l 


3780 


09C2 C860 




LOA» 


INT005 


3781 


09C3 6091 




STA- 


TSACTV 


3782 


09C* 18E9 




JMP» 


PR0C9 


3783 


09C5 OAFE 


PROC10 


ENA 


-1 



NOT REQUESTEO-SKIP MBS CHECK 

SKIP IF NOT MBS INT 

OONT STACK LINE INTS 
NO 010 MBS LOCK OUT SMM 
INTS 
CONTINUE 
YES STACK THE EXIT STATE 
VALUE ANO PROCESS ROUTINE 
ADDRESS 



START MBS INT SYS 

AOO FLAG TO INT TIMER LOCATION 

SET INT OCCURED FLAG 

MAKE SURE THE TEST 

TABLE POINTER IS CORRECT 
POSITION ERR FILE TO I 
SAVE FOR ERR NSG 
UPDATE 6*US CLOCK 

SKIP FOR RECOGNIZE INT BIT 
RESTORE THE POINTER 

ANO EXIT 

THROUGH MONITOR 
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378l» 
3785 
3786 

3787 
3788 
3789 
3790 
3791 
3792 
379,3 
3794 
3795 
3796 
3797 
3796 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3810 
3815 
3816 
3817 
3818 
3819 
3820 
3821 



09C6 A049 
09C7 6049 
09C8 1800 
09C9 0136 



09CA 
09CB 
09CC 
09CO 
09CE 
09CF 
0900 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 



0909 
09OA 
090B 
09DC 
0900 
090E 
090P 
09E0 
09E1 
09E2 
09E3 
09E4 
09E5 
09E6 
09E7 



0000 
681C 
C437 
OCOF 
60C1 
40C0 
0138 
0106 
C0C1 
EQCO 
A087 
0FC1 
OOFE 
18F6 
1CF1 



E107 
QFE4 
A07O 
80C0 
0106 
0FE8 
A 070 
BOCO 
0102 
E108 
18F6 
QFF4 
40BC 
1400 
0000 



* 
INE025 



INE027 



INE029 



INE030 

* 
* 
« 



INE031 
I HE 054 



INE056 
INE057 
INE059 



AND- 
STA- 
JMP 



NUH 

STA» 

LDA- 

ENQ 

STA- 

STQ- 

SAH 

SAZ 

LDA- 

LOQ- 

AND- 

ALS 

INQ 

JHP* 

JNP» 



LDQ- 

LLS 

AND- 

EOR- 

SAZ 

LLS 

AND- 

EOR- 

SAZ 

LDQ- 

JMP» 

LLS 

STQ- 

JMP+ 



INFORM 
INFORM 
RIE013 



INE059+1 

tCALLPT) 

SF 

B6 

B5 

INE031-»-l 

IN603Q-»-i 

B6 

B5 

H7FFF 

1 

-1 

INE027 

CINE025) 



ILT,I 

k 

HO OOF 

B5 

INEQ56^-i 

8 

HO OOF 

B5 

INE056-»-l 

ILT+1,1 

INE054 

20 

Bl 





60 PROCESS MBS INTERRUPT 

CONVERT THE BINARY POSITION 
INTO A HEX NUMBER AND FIND 
THE INTERRUPT LINE USED 

GET INT. SELECT HORO 

START BIT COUNT AT 15 



BIT ON-SKIP 
ALL BITS DONE 
UPDATE 

BIT 

POSITION 

AND BIT 

COUNT 
LOOP 



COMPARE THE BIT POSITION 
SELECTEO WITH THE BITS 
IN THE INTERRUPT LINE 
TABLE TO DETERMINE THE 

GET THE INT.TABLE,IN THE FORM 
BTBT B*BIT NUMBER 
TbTRAPNUMBER 

IF THE SELECTED BIT 
NUMBER COMPARES 
WITH B«THEN 
USE T AS THE 
TRAP NUMBER 



GO TO SPECIFIED PROCESS ROUTINE 



3823 
3824 
3825 
3826 
3827 
3828 
3829 



* . . » 
» NULTILPEX CONTROL ROUTINE. OETERMINE IF OK TO TRADE. IF OK » 
» CHECK FOR SMM17 INTERRUPTS WAITING TO BE PROCESSED ON » 

• 1ST IN 1ST OUT BASIS. MOVE INTS TO TOP OF STACK. * 
» » 



3831 09E8 0000 HOG1 



NUH 



HOG FLAG 



PTC2 



60411400 C 
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OATEl 12/17/74 





3832 


09E9 0000 


HPEOOO 


NUM 


■ - » 




... 


3633 


09EA OCFO 




ENQ 


-2 


GET ADDRESS OF 




3834 


89EB CEFO 




LDA* 


IMPEOOO)*Q 


CALL TO 




3835 


09EC 6037 




STA- 


CALLPT 


MONITOR 




3836 


09EO C035 




LDA- 


ILO 


IS INT LOCK-OUT ON 




3837 


09EE 0101 




SAZ 


MPE005-*-i 


NO-SKIP 




3838 


09EF 1CF9 




JMP* 


(MPE000) 


EXIT 




3839 


09F0 C8F7 


HPE005 


LOA* 


H0G1 


IS HOG FLAG SET 




3840 


09F1 0103 




SAZ 


MPE007-*-l 


- NO 




3841 


09F2 0844 




CLR 


A 


1=YES 




3842 


09F3 68F4 




STA* 


H061 


CLEAR IT 




3843 


09F4 1CF4 




JMP* 


(MPEOOO) 


CONTINUE 




3844 


09F5 541F 


MPE067 


RTJ- 


(FHAEII 


POSITION ERR FILE TO I 


.^ 


3845 


09F6 C8F2 




LOA* 


MPEOOO 






3846 


09F7 6142 




STA- 


HPXRTN.I 


SAVE RETURN AOORESS 




3847 


09F8 C037 




LDA- 


CALLPT 




- 


3848 
3849 
3850 


09F9 6141 


* 


STA- 


CALLP.I 


CALLERS AOOR TO ERR FILE 
CHECK FOR SMM17 STACKEO 
INTERRUPTS 


— 


3851 


09FA C838 




LOA* 


INTSTK 


ARE ANY WAITING 




3652 


09FB OUA 




SAN 


HPE025-*-l 


YES-SKIP 




3853 


09FC C834 




LDA* 


MPXCNT 


LOOK AT TRADE SWITCH 




3854 


09FO 0FC1 




ALS 


1 


TO DETERMINE IF 




3655 


09FE 6832 




STA* 


MPXCNT 


ITS TRADE TIME 




3856 


09FF 0131 




SAH 


HPEQ20-*-l 


YES- SKIP 


,„. 


3857 


OAOO 1CE8 




JMP* 


IMPE0001 


NO-EXIT 




3858 


0AO1 541E 


NPE020 


RTJ- 


CFWAI) 






3859 


0A02 COOO 
0A03 0A29 




LOA 


aXMPE015 






3860 


0AO4 6105 




STA- 


MUXRTAtI 






3861 


0AO5 5401 




RT J- 


(CONTROL! 


GO TRADE 




3862 


0A06 E820 


HPE025 


LDQ* 


INTOOO 


GET CURRENT EXIT STATE 




3863 


0A07 4144 




STQ- 


TSCOML.I 


VALUE 




3864 


OA08 C07A 




LDA- 


BIT15 


SET UP LENGTH 




3865 


0AO9 9829 




SUB* 


INTSTK 


OF STACK 




3666 


OAOA 6827 




STA* 


STKLGH 






3667 


OAOB 01BQ 




SNO 





CLEAR POSSIBLE OVERFLOW 




3868 


OAOC 0C01 




ENQ 


1 


HOVE STACK 




3869 


OAOO CA26 


MPE0 35 


LOA* 


INTOOO«Q 


UP ONE 




3870 


6A0E OOFE 




INQ 


-1 


SLOT 


._■ 


3871 


OAOF 6A24 




STA* 


INTOQOtQ 






3872 


0A10 C822 




LOA* 


INTSTK 


DECREMENT THE STACK 




3873 


0A11 09FE 




INA 


-1 






3874 


0A12 6820 




STA* 


INTSTK 






3875 


0A13 081E 




RAO* 


STKLGH 


CHECK FOR LAST 




3876 


0A14 01A2 




SOV 


MPE03 0-*-l 


MOVE 




3877 


0A15 0D02 




INQ 


2 


NOT FINISHED GET 




3878 


0A16 18F6 




JMP* 


MPE035 


NEXT 




3879 


0A17 E144 


HPE030 


LDQ- 


TSCOML.I 


GET EXIT STATE VALUE FROM 




3880 


0A18 0F22 




QRS 


2 


TEMP CELL 




3881 


0A19 CA46 




LOA* 


INT003-1.Q 


GO TO TESTS INT PROCESSOR 




3882 


0A1A 60FF 




STA- 


I 


THROUGH INT ROUTINE 




3683 


0A1B C26B 




LDA- 


BITOO.Q 


REPLACE HASK BIT FOR 



PTC2 
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r^\ 



smhooo 



PAGE 87 



DATE I 12/17/74 



3884 


0A1C 086C 




EAH 


A 


3885 


0A1D 0FA2 




QLS 


2 


3886 


0A1E 6600 
0A1F 0142 




STA» 


REG*2,Q 


3887 


0A20 4400 
0A21 01A7 




STQ+ 


PR0C2+1 


3888 


0A22 0814 




TRQ 


A 


3889 


0A23 8000 
0A24 0103 




ADO 


=N8103 


3890 


0A25 6400 
0A26 0181 




STA+ 


PROCESS 


3891 


0A27 1400 
0A28 019E 




JHP* 


PROC 


3892 


0A29 541 F 


MPE015 


RTJ- 


(FHAEI) 


3893 


0A2A C142 




LOA- 


MPXRTN*I 


3894 


0A2B 68B0 




STA» 


MPE000 


3895 


0A2C C141 




LDA- 


C A LLP* I 


3896 


0A2D 6037 




STA^ 


CALLPT 


3897 


0A2E 1CBA 


MPE010 


JMP* 


CMPE000) 


3898 


0A2F 0000 


INT005 


MUM 


* 


3899 


0A50 5555 


HPXCNT 


NUM 


$5555 


3900 


0A31 0000 


STKLGH 


MOM 


* 


3901 


0A32 0000 


INTSTK 


NUM 


♦ 


3902 


0A33 0000 


INTOOO 


NUM 


» 


3903 


0A34 0000 




NUM 


* 


3904 


0A35 SOOO 




NUM 


* . 


3905 


0A36 0000 




NUM 


* 


3906 


0A37 0000 




NUM 


* 


3907 


0A38 0000 




NUM 


» 


3908 


0A39 0000 




NUM 


♦ 


3909 


0A3A 0000 




NUM 


* ' 


3910 


0A3B 0000 




NUM 


• ■ 


3911 


0A3C 0000 




NUM 


• 


3912 


0A3D 0000 




NUM 


* 


3913 


0A3E 0000 




NUM 


♦ 


3914 


0A3F 0000 




NUM 


V 


3915 


OA40 0000 




NUM 


« 


3916 


0A41 0000 




NUM 


* 


3917 


0A42 0000 


IMT001 


NUM 





3918 


0A43 0000 




NUM 





3919 


0A44 0000 




NUM 





3920 


0A45 0000 




NUM 





3921 


0A46 0000 




NUM 





3922 


0A47 0000 




NUM 





3923 


0A48 0000 




NUN 





3924 


0A49 0000 




NUM 





3925 


0A4A 0000 




NUM 





3926 


0A4B 0000 




NUM 





3927 


0A4C 0000 




NUM 





3928 


OA40 0000 




NUM 





3929 


0A4E 0000 




NUM 





3930 


QA4F 0000 




NUM 





3931 


0A50 0000 




NUM 






THIS LINE ONLY 

IN SAVE AREA 

REPLACE THE DELTA VALIE 

AND SMM INT. PROCESSOR RETURN 
ADDRESS FOR STACKEO SMM 

INTERRUPTS 

GO TO SMH CONTROL 

POSITION CURRENT ERRFLE TO I 
REPLACE MULTIPLEX EXIT 

ADDRESS 
REPLACE ADDR OF 

CALLER 
CONTINUE 
LAST TSACTV WHEN INT OCCURRED 

8000-LENGTH 

NO OF ENTRIES IN STACK 

EXIT STATE VALU HIGHEST PRIOR 



INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 



TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 
TIMER 



•TRAP1 
tTRAP 2 

• TRAP 

• TRAP 

• TRAP 

• TRAP 
tTRAP 
•TRAP 8 

• TRAP 9 
.TRAP 10 
•TRAP 11 
•TRAP 12 
•TRAP 13 
•TRAP 14 
•TRAP 15 
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SHNOOO 


PAGE 


88 




3932 


♦ 






, 


3933 


0A51 0000 INT0Q2 NUN 







393* 


0A52 0000 


NUM 







393S 


0A53 0000 


NUM 







3936 


0A5* 0000 


NUM 







3937 


0A55 0000 


NUM 







3938 


0A56 0000 


NUM 







3939 


0A57 0000 


NUM 







39*0 


0A58 0000 


NUM 







39*1 


0A59 0000 


NUM 







39*2 


0A5A 0000 


NUM 







39*3 


0A5B 0000 


NUM 







39** 


0A5C 0000 


NUM 







39*5 


OA50 0000 


NUM 







39*6 


0A5E 0080 


NUM 







39*7 


0A5F 0000 


NUM 







39*8 


* 








39*9 


0A60 0000 INT003 NUM 







3950 


0A61 0000 


NUM 







3951 


0A62 0000 


NUM 







3952 


0A63 0000 


NUM 







3953 


0A6* 0000 


NUM 







395* 


0A65 0000 


NUM 







3955 


0A66 0000 


NUM 







3956 


0A67 0080 


NUM 







3957 


0A68 0000 


NUN 







3958 


0A69 0000 


NUN 







3959 


0A6A 0000 


NUM 







3960 


QA6B 0000 


NUN 







3961 


0A6C 0000 


NUN 







3962 


0A60 0000 


NUN 







3963 


0A6E 0000 


NUN 







3965 


• • 




T 




3966 


■ ♦ • 








3967 


0A6F 0000 INTOO* NUM 







3968 


0A70 0000 


NUM 







3969 


0A71 0000 


NUN 







3970 


0A72 0000 


NUN 





** 


3971 


0A73 0000 


NUN 







3972 


0A7* 0000 


NUN 







3973 


0A75 0000 


NUN 





,_ 


397* 


0A76 0000 


NUM 







3975 


0A77 0000 


NUN 







3976 


0A78 0000 


NUM 







3977 


0A79 0000 


NUN 







3978 


0A7A 0000 


NUN 







3979 


0A7B 0000 


NUH 







3980 


0A7C OQOO 


NUH 







3981 


0A7D 0000 


NUN 






DATES 12/17/7* 



INT. PROCESSOR ADDRESS TABLE 



TRAP 


1 SYSTEM TIMER 


TRAP 


2 


TRAP 


3 


TRAP 


* 


TRAP 


5 


TRAP 


6 


TRAP 


7 


TRAP 


8 


TRAP 


9 


TRAP 


10 


TRAP 


11 


TRAP 


12 


TRAP 


13 


TRAP 


1* 


TRAP 


15 


PROCESS AOORESS TABLES 


TRAP 


1 


TRAP 


2 


TRAP 


3 


TRAP 


* 


TRAP 


5 


TRAP 


6 


TRAP 


7 


TRAP 


8 


TRAP 


9 


TRAP 


10 


TRAP 


11 


TRAP 


12 


TRAP 


13 


TRAP 


1* 


TRAP 


15 



TEST ACTIVE POINTER TABLE 

TRAP 1 

2 

3 

* 

5 

6 

7 

8 

9 

10 

11 

12 

13 

1* 

15 



60*11*00 C 



PAGE 88 



n 
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r 



SMMOOO 



3983 






3984 






3985 


0A7E 


OOOO 


3986 


0A7F 


C8FE 


3987 


0A80 


6037 


3988 


0A81 


COOO 




0A82 


0A8E 


3989 


0A83 


541F 


3990 


0A64 


5800 




0A85 


FF44 


3991 


0A86 


003A 


3992 


0A87 


0844 


3993 


0A88 


6035 


3994 


QA89 


6143 


3995 


0A8A 


6127 


3996 


0A8B 


6034 


3997 


0A8C 


0C01 


3998 


OA80 


1637 


3999 


0A8E 


OAOO 


40QQ 


0A8F 


6AB1 


4001, 


0A90 


6ABF 


4002 


0A91 


6AC0 


4003 


0A92 


0FA2 


4004 


0A93 


6600 




0A94 


0103 


4005 


0A95 


0F22 


4006 


0A96 


C26B 


4007 


0A97 


0869 


4008 


0A98 


1800 




0A99 


FF38 


4009 






4010 






4011 


0A9A 


0000 


4012 


0A9B 


C8FE 


4013 


0A9C 


6037 


4014 


QA9D 


0C01 


4015 


0A9E 


C637 


4016 


0A9F 


681 A 


4017 


OAAO 


0C02 


4018 


0AA1 


C637 


4019 


0AA2 


681 A 


4020 


0AA3 


5<»1F 


4021 


0AA4 


OC03 


4022 


0AA5 


E637 


4023 


0AA6 


QOFE 


«»024 


0AA7 


C201 


4025 


0AA8 


6107 


4026 


0AA9 


C202 


4027 


OAAA 


6108 


4028 


OAAB 


0842 


4029 


OAAC 


40BD 


4030 


OAAO 


COOO 




OAAE 


0AB8 



DSEOBO 



OSE010 



SIEOOO 



PAGE 89 



') o 



r 



V j 



n 



( A 



( "\ 



NUM 







LDA» 


DSE000 




STA- 


CALLPT 




LOA 


-XOSE010 




RTJ- 


(FWAEI) 




RTJ 


INE025 




RAO- 


TK32 




CLR 


A 




STA- 


ILO 




STA- 


RBIT,I 




STA- 


LlNENO.I 




STA- 


H062 




ENQ 


1 




JMP- 


(CALLPT) i 


Q 


ENA 







STA» 


INTQQ1-1, 


Q 


STA» 


INT002-li 


Q 


STA» 


INT003-1, 


Q 


QLS 


2 




ST A* 


LVOAOR.Q 




QRS 


2 




LDA- 


BITOO.Q 




EAH 


M 




JMP 


INE029 




HUM 







IDA* 


SIEOOO 




STA- 


CALLPT 




ENQ 


1 




LOA- 


(CALLPT), 


Q 


STA* 


SIE010+1 




ENQ 


2 




LOA- 


(CALLPT), 


Q 


STA* 


SIE012+1 




RTJ- 


(FHAEI) 




ENQ 


3 




LDQ- 


(CALLPT), 


Q 


INQ 


-1 




LOA- 


i» Q 




STA- 


ILT,I 




LOA- 


2»Q 




STA- 


ILT+l.I 




CLR 


0. 




STQ- 


B2 




LDA 


-XSIE010 





DATE I 12/17/74 



DESELECT IMTERRUPT-INTERRUPT BIT 
IN STATUS WORD GIVEN IN CALL 

GET CALL 

ADDRESS 
GIVE THE PROCESSING AODRESS 

POS CURRENT ERR FILE TO I 
TO THE SELECT ROUTINE 

UPDATE 32 USEC COUNTER 
CLEAR 

INTERRUPT LOCKOUT 

RECOGNIZE INT 

AND LINE NO. 
ALLOW SMH17 INTS 
RETURN TO 

CALLER 
CLEAR THIS TRAPS TABLES 

TINER (HARDWARE) 

SYSTEM TIMER (OVERLOAD) 

PROCESS AODRESS 
SET SHH PROCESS ADDRESS 
TO ZERO. 



RESTORE THE MASK BIT 

GO BACK FOR NEXT SELECTION 

SELECT THIS INTERRUPT- BIT 

IN STATUS WORD GIVEN IN CALL 

GET CALL 

AODRESS 

TIHE 
GET TIHE EXPECTED 

TO SHOW ERR TIME 
MOVE PROCESS 

AODRESS 

POS CURRENT ERR FILE TO I 
GET INTERRUPT DATA IN BTBT 

FORM 

B=BIT POSITION IN STATUS 
ONE WORD 

T=TRAP NO. 
SAVE IN TESTS ERROR FILE 

INITIALIZE INT 

WORD 
GIVE THE PROCESSING 



60411400 C 
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OATEt 12/17/7* 



%831 


OAAF 5000 
OABO FF19 


RTJ 


INE025 


*032 


0AB1 COBO 


LOA- 


82 


4033 


0A82 6119 


STA- 


ITLINS.I 


«»034 


0AB3 0844 


CLR 


A 


<»Q35 


0AB4 6035 


STA- 


ILO 


W036 


0AB5 003A 


RAO- 


TK32 


4037 


0AB6 0C0<» 


ENQ 


k 


t»038 


0AB7 1637 


JHP- 


(CALLPT), Q 


4039 


OABO COOO SIE010 LOA 


= NSO 




0AB9 0000 






4040 


OABA 6A95 


STA» 


INT002-1,Q 


4041 


OASB COOO SIE012 LOA 


= N$0 




0A3C 0000 






%042 


OABO 6AA1 


STA» 


INT003-1.Q 


4043 


0A8E C091 


LDA- 


TSACTV 


4044 


OABF 6AAE 


STA» 


INT004-l f Q 


4045 


OACQ 0014 


TRQ 


A 


«»046 


0AC1 BQBO 


. EOR- 


B2 


4047 


0AC2 0FC4 


ALS 


4 


4048 


0AC3 60BO 


STA- 


B2 


4049 


0AC4 OCOF 


ENQ 


$F 


4050 


0AC5 COBC 


LDA- 


Bl 


4051 


0AC6 08B2 


LAQ 


Q 


i»052 


0AC7 C26B 


LDA- 


BITOO.Q 


40S3 


0AC6 E101 


LDQ- 


MEST1.I 


4054 


0AC9 5404 


RTJ- 


(REQIT) 


<i055 


OACA FFFE 


NUM 


-1 


%056 


OACB 541F 


RTJ- 


(FNAEI) 


4057 


OACC 1000 
OACD FF04 


JNP 


INE029 


4058 


* ' 






4059 


» 






4060 


OACE 0000 RIEOOO NUN 





406t 


OACF C8FE 


LOA» 


RIEOOO 


4062 


OAOO 003A 


RAO- 


TK32 


4063 


0AO1 6037 


STA- 


CALLPT 


4064 


OA02 0C01 


ENQ 


1 


4065 


0AD3 4034 


STQ- 


H0G2 


4066 


OAOt 541F 


RTJ- 


(FHAEI) 


4067 


OA05 6141 


STA- 


CALLP.I 


4068 


OA06 D143 


RAO- 


RBIT«I 


4069 


OA07 080C 


TRN 


A 


4070 


OAOO 6125 


STA- 


IHR.I 


4071 


0AO9 5«»15 


RT J- 


(CLOCK) 


4072 


DAOA C437 


LDA- 


(CALLPT) 


4073 


OAOB 611A 


STA- 


XTIME,I 


i*Q7it 


OAOG 611B 


STA- 


TIMER, I 


4075 


OADD E127 RIE0 06 LDQ- 


LINENOtI 


4076 


OAOE 003A 


RAO- 


TK32 


«»077 


OAOF OH»i 


sqz 


RlE008-»-l 


4078 


OAEO 181F 


JHP» 


RIE013 


4079 


0AE1 0037 RIEOOO RAO- 


CALLPT 



ADORESS TO SELECT ROUTINE 

SAVE INTERRUPT 

WORD FOR ERR NSG 
CLEAR 

INTERRUPT LOCKOUT 
UPDATE 32 USEC COUNTER 
ALL OONE 

EXIT 
NOVE TINE OF ERR 

TO TABLE 
PUT PROCESS 

ADOR IN TABLES 
USE THIS VALUE FOR 

INTERRUPT PROCESSING 

BUILO 
INTERRUPT 

WORD 



CONVERT HEX CHAR 
TO INT LINE 
NON HAVE LINE NO. 
EQUIP ADORESS 
PROCESS ADDRESS*-! 

POS CURRENT ERR FILE TO I 
GO BACK FOR NEXT SELECTION 

RECOGNIZE INTERRUPT 

GET CALL 

AOORESS 
UPDATE 32US COUNTER 

STACK SNM17 INTERRUPTS 

POSITION FOR CURRENT ERROR BLK 
SAVE CALLERS AODRESS 
SET RECOGNIZE BIT 
SAVE MASK FOR 

ERR MSG 
SAMPLE THE TIME 
SET TIME 

INFO 

INTEST AREA 
HAS INTERRUPT OCCURED 
UPOATE 32US CLOCK 

YES 

ADJUST CALLPT 
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4080 


0AE2 
0AE3 


5800 
OOEE 




RTJ 


IOE050 


COPY STATUS 




4081 


0AE4 
0AE5 


5800 
014A 




RTJ 


IOE200 


CHECK STATUS 




4082 


0AE6 


0822 




TRA 


Q 






4083 


0AE7 


OAFE 




ENA 


-1 


RESET 




4084 


0AE8 


8037 




ADO- 


CALLPT 


CALL 




4085 


0AE9 


6037 




STA- 


CALLPT 


POINT 




4086 


OAEA 


0142 




SQ2 


RIE007-»-l 


TO TIMER IF NO 




4087 


OAEB 


0A03 




ENA 


3 


STATUS 


, 


4088 


OAEC 


1810 




JMP» 


RIE012 


ERROR 




40 89 


OAEO 


5415 


RIE0Q7 


RTJ- 


(CLOCK) 


GET THE 




4090 


OAEE 


0864 




TCA 


A 


ELAPSED 




4091 


OAEF 


8118 




AOD- 


TIMER, I 


TIME AND 




4092 


OAFO 


611B 




STA- 


TIMER, I 


DECREMENT TIMER 




4093 


0AF1 


0139 




SAM 


RIE011-»-l 


TO TIME ERROR 




4094 


0AF2 
OAFS 


COOO 
OAF 7 




LDA 


=XRIE009 


SET UP TO TRADE 




4095 


0AF4 


541E 




RTJ- 


(FHAI) 


SET RETURN 


, v 


4096 


0AF5 


6105 




STA- 


MUXRTA.I 


ENTRY POINT 




4097 


QAF6 


5401 




RTJ- 


(CONTROL) 


GO TRAOE 




4098 


0AF7 


541F 


RZE009 


RTJ- 


(FNAEI) 


POSITION FOR CURRENT ERROR BLK I 


T.' 


4099 


OAFS 


C141 




LDA- 


CALLP.I 


RESTORE 




4100 


0AF9 


6037 




STA- 


CALLPT 


CALL POINT 




4101 


OAFA 


18E2 




JMP» 


RIE006 


LOOP UNTIL INTERRUPT 


•» 


4102 


OAFB 


0A04 


RIE011 


ENA 


4 


SET TIME ERR CODE 




4103 


OAFC 


0C07 


RIE012 


ENQ 


7 


AND 




4104 


OAFO 
OAFE 


1800 
0179 




JMP 


REE004 


EXIT 




4105 


OAFF 


4035 


RIE013 


STQ- 


ILO 


SET INT LOCKOUT 




4106 






* 






NO MORE INTERRUPTS HILL 




4107 






9 






BE PROCESSED UNTIL SELIN 




4108 






9 






OR DSELIN EXECUTED 




4109 






* 






GET INTERRUPT PROCESS ROUTINE 


• -• 


4110 


0800 
QB01 


EAOO 
FF5D 




LOQ 


INT003-1,Q 


AOORESS 




4111 


0B02 


G102 




LDA- 


HEST2,I 


SET UP NORMAL RETURN 




4H2 


0B03 


Oil 2 




SAN 


RIE015-»-l 


FOR TESTS 




4113 


0B04 


0A08 




ENA 


8 


INTERRUPT 




4114 


OB05 


1802 




JMP» 


RIE020 • 


PROCESSOR 




4115 


0B06 


OAOA 


RIE015 


ENA 


10 






4116 


0B07 


8141 


RIE020 


ADD- 


CALLP.I 






4117 


0B08 


541E 




RTJ- 


(FWAI) 






4118 


0B09 


6105 




STA- 


HUXRTA.I 


FOR MUX RETURN 




4119 


OBOA 
OBOB 


COOO 
OBOF 




LOA 


= XRIE025 




.. 


4120 


OBOC 


667 B 




STA- 


(H0000),Q 


RETURN HERE FROM TEST INT PROC 




4121 


OBOD 


04Q0 




EIN 









4122 


OBOE 


1201 




JHP- 


1,Q 


GO PROCESS INT 




4124 






«.««**«*»«»*»««»«**««««***»*****«»*****»*««******•******#****#*********** 




4125 






* 






* 
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DATE I 12/17/74 



4126 






4127 






4128 






4129 






4130 






4132 


080F 


OBOO 


4133 


0B10 


54IF 


4134 


0B11 


CIO 7 


4135 


0B12 


0F48 


4136 


0B13 


A07O 


4137 


0B14 


0822 


4138 


0B15 


CAOO 




OBI 6 


FF57 


4139 


0B17 


B800 




0B18 


FF16 


4140 


0B19 


0106 


4141 


0B1A 


C800 




0B1B 


FF13 


4142 


0B1C 


6091 


4143 


0B10 


0FA2 


4144 


0B1E 


1400 




0B1F 


01B9 


4143 


0B20 


541E 


4146 


0B21 


E105 


4147 


0822 


167B 


4149 


0B23 


0000 


4150 


0B24 


QA01 


4151 


0B25 


6800 




0B26 


FECI 


4152 


0B27 


6034 


4153 


0B28 


1CFA 


4154 






4156 






4157 






4158 






4159 






4160 






4162 


0B29 


0000 


4163 


0B2A 


5426 


4164 


0B2B 


541F 


4165 


0B2C 


COOO 




0B2O 


464E 


4166 


0B2E 


611D 


4167 


0B2F 


E037 


4168 


OB30 


C202 



RETURN FROH TEST INTERRUPT PROCESSOR. IF INTERRUPT OCCURED ♦ 
HHEN THIS TEST DID NOT HAVE CONTROL RETURN TO INTERRUPTED • 
TEST OTHERWISE RETURN TO TEST. » 



«**«************«•*•*«*•*********•*****»**¥**************«**********»*** 



RIE025 



RIE030 



HGEOOO 



NOP 

RTJ- 

LOA- 

ARS 

AND- 

TRA 

LOA 

EOR 

SAZ 
LDA 

STA- 

QLS 

JMP* 

RTJ- 
LDQ- 
JMP- 



NUN 
ENA 
STA 

STA- 
JHP* 



CFHAEI) 

ILT,I 

8 

HO OOF 

Q 

INT004-1.Q 

INT005 

RIE030-»-l 
INT005 

TSACTV 

2 

EXITL 

(FHAI) 

HUXRTAfl 

(H0000)*Q 




1 
H0G1 

H0G2 
(HGEOOO) 



REQUIRED FOR PROTECT PROCESSOR 
GET FN A OF ERROR BLK TO I-REG 
GET THE LINE NO. 



NOW HAVE THE LINE NO. 
DETERNINE WHO HAD CONTROL 



SKIP FOR TEST 



FORM THE OELTA VALUE 
RETURN TO INTERRUPTED TEST 



GO TO NORMAL RETURN FOR 
RINT CALL 



SET THE HOG FLAG-ALLOWS 
CONTINOUS PROCESSING 
OF HON CALLS 

STACK SNH17 INTS 
(PRE-PROCESSING OF HOW INT 
STILL OCCURS) 



PTC2 



» * 

» FUNCTION ROUTINE * 

• . * 



RTJ- 
RTJ- 
LDA 

STA- 
LDQ- 
LOA- 




CMPX) 

(FWAEI) 
=AFN 

LOPER.I 
CALLPT 

2tQ 



POSITION FOR CURRENT ERROR BLK I 
SET FN 

INTO LAST OPERATION 
GET CALL ADDRESS 
TIMER VALUE TO A 
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4169 


0B31 0124 


SAP 


FNE002-»-l 


4170 


0B32 EOOO 
0B33 OCOF 


LDQ 


= XI0E135 


4171 


0834 0700 


CPB 





4172 


0B35 A087 


AND- 


H7FFF 


4173 


0B36 611A FNE0 02 STA- 


XTIME.I 


4174 


0B37 611B 


STA- 


TIHERtI 


4175 


0B38 5415 


RTJ- 


(CLOCK) 


4176 


0B39 E037 


LOQ- 


CALLPT 


4177 


0B3A C201 


LDA- 


1«Q 


4178 


0B3B 60BC 


STA- 


Bl 


4179 


0B3C OCOO 


ENQ 





4iao 


0B3O 0FE4 


LLS 


4 


4181 


0B3E EA4E 


LOQ* 


IOT001«Q 


4182 


0B3F 4650 


STQ» 


IOT002 


4183 


OB40 OCOO 


ENQ 





4184 


0B41 0FE4 


LLS 


4 


4185 


0B42 EA4A 


LOQ» 


IOTOOltQ 


4186 


0B43 4840 


STO* 


IOT002+1 


4187 


0B44 COBC 


LDA- 


81 


4188 


0845 A08A 


AND- 


H0 07F 


4189 


0B46 8106 


ADD- 


HE,I 


4190 


0B47 E437 


LDQ- 


(CALLPT) 


4191 


0B48 OFFO 


LLS 


16 


4192 


0849 611F 


STA- 


LOPERA.I 


4193 


084A 4120 


STQ- 


LOPERQvI 


4194 


0B4B 5818 


RTJ* 


FNE015 


4195 


0B4C 5800 


RTJ 


IOE100 


- - 


0B40 OOAO 






4196 


0B4E 5800 FNE0 05 RTJ 


IOE130 




0B4F OOBF 






4197 


0B50 411E 


STQ- 


LOPRSP.I 


4198 


0B51 E08C 


L0«- 


Bi 


4199 


0B52 40BD 


STQ- 


B2 


4200 


0B53 E037 


LOQ- 


CALLPT 


4201 


0B54 C2Q2 


LOA- 


2,Q 


4202 


0855 0123 


SAP 


FNE007-»-l 


4203 


0B56 EOOO 
0857 OCOF 


LOQ 


*XI0E135 


4204 


0B58 0600 


SPB 





4205 


0859 0C01 FNE0 07 ENQ 


1 


4206 


OBSA C637 


LOA- 


(CALLPT) ,Q 


4207 


0B5B 0131 


SAH 


FNE010-*-l 


4208 


0B5C 5875 


RTJ» 


IOE050 


4209 


OB50 EOBD FNE010 LDQ- 


B2 


4210 


085E 0F21 


QRS 


1 


4211 


0B5F 003C 


RAO- 


TK128 


4212 


0B60 EA2F 


LDQ» 


IOT002«Q 


4213 


0B61 1600 
0B62 0000 


JNP* 


OtQ 


4214 


0B63 0000 FNE015 NUN 


• 


4215 


0B64 0C03 


ENQ 


3 


4216 


0B65 C637 


LOA- 


(CALLPT) ,Q 



DATE* 12/17/74 



TEST FOR NON-PROTECTEO I/O 
ADDRESS OF I/O INSTRUCTION 

CLEAR ITS PROTECT BIT 
DELETE BIT 15 OF TIME PARAM 
SET TIME IN ERR MESSAGE 



SAMPLE TIME 

EXAMINE THE 

RESPONSE CONTROL 

AND STUFF 

THE 

JUMPS ON 

REPLY 

AND 

REJECT 



RJ 2X=HNG 
RJ 1X=ERR 
RJ 0X=CNT 

RP X2=HNG 
RP X1=ERR 
RP X0=CNT 



GET THE DIRECTOR BITS FOR THIS 

FUNCTION AND ADD ON 

THE H E PORTION 
GET THE ACTUAL FUNCTION CODE 
SWAP A AND Q 
SET LAST OPERATION (A) 
SET LAST OPERATION (Q) 
CHECK FOR 17X6 OPERATION 
SET UP OUTPUT 

EXECUTE OUTPUT 



SAVE THE RESPONSE CODE 

(RP=2,ER=ltIR=0) 
GET TIMER VALUE 

BIT 15 FOR NON-PROTECTED I/O 
SKIP IF BIT NOT SET 
I/O INSTRUCTION AOORESS 

RESET PROTECT BIT 

DOES CALLER WANT STATUS 

NO-SKIP 

COPY THE STATUS 

CONVERT RESPONSE CODE TO 

QsRJ 1=RP 
UPDATE 128 USEC COUNTER 

BRANCH ON RESPONSE 



DOES CALLER WANT 17X6 
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DATES 


12/17/74 


4217 


0B66 0112 




SAN 


FNE016-"- 


■1 


YES-SKIP 


4218 


0B67 £120 




LDQ- 


LOPERQ,I 




NO 


4219 


0B68 1805 




JMP» 


FNE017 






4220 


0869 £106 


FNE016 


LDQ- 


WE, I 




SET UP FOR FN/TERH XFER 


4221 


0B6A F076 




ADQ- 


BIT11 






4222 


0B68 0123 




SAP 


FNE018-*- 


•1 




4223 


0B6C 4120 




STQ- 


LOPERQtl 




THIS IS A FUNCTION REQUEST 


4224 


0B6D C11F 


FNE017 


LDA- 


L OPERA, I 






4225 


0B6E 1CF4 




JMP* 


(FNE015) 






4226 


0B6F 0FC2 


FNE018 


ALS 


2 






4227 


0B70 0125 




SAP 


FNE019-»- 


•1 




4228 


0B71 C11F 




LOA- 


LOPERA.I 




THIS IS A TERMINATE REQUEST 


4229 


0B72 t»120 




STQ- 


LOPERQ,I 






4230 


0B73 5800 
0B74 0090 




RTJ 


IOE120 




SET UP FOR INPUT 


4231 


0B75 1808 




JHP» 


FNE005 




DO THE INPUT 


4232 


0B76 C106 


FNE019 


LDA- 


HE,I 






4233 


0B77 9076 




SUB- 


BIT11 






4234 


0B78 0822 




TRA 


Q 




THIS IS A 1716 BUFFERED 


4235 


0B79 4120 




STQ- 


LOPERQ.I 




TRANTER REQUEST 


4236 


0B7A 18F2 




JMP» 


FNE017 






4237 




* 








ENTER HANG ON RESPONSE 


4238 




* 










4239 




* 








DECREMENT THE MSEC TIMER 


4240 




* 








(CALCULATE USECS IN LAST ! 


4241 


0B7B 5415 


FNE020 


RTJ- 


f CLOCK) 




GET THE CURRENT CLOCK 


4242 


0B7C 864 




TCA 


A 




DECREMENT 


4243 


0B7D 811B 




ADO- 


TIHER,I 




THE 


4244 


0B7E 611B 




STA- 


T I HER, I 




TIMER 


4245 


0B7F 0134 




SAN 


FNE030-*- 


•1 


SKIP IF ERROR 


4246 


0B8O C11F 




LDA- 


LOPERA.I 




GET THE OPERATION 


4247 


0B81 E120 




LDQ- 


LOPERQ.I 




COOES AND 


4248 


0B82 003B 




RAO- 


TK64 




UPDATE 64 USEC COUNTER 


4249 


0B83 18CA 




JMP« 


FNE005 




HANG 


4250 


QB84 0A01 


FNE030 


ENA 


1 




TIME ERROR (CODE 1) 


4251 


0B85 1802 




JMP* 


FNE036 






4252 


0B86 0A02 


FNE0 34 


ENA 


2 




RESPONSE ERROR (CODE 2) 


4253 


0887 0C04 


FNE036 


ENQ 


4 




EXIT TO 


4254 


0B88 610F 




STA- 


MNTERR,I 




USER AT 


«i255 


0B89 1637 




JMP- 


(CALLPT), 


.0. 


ERROR RETURN 


4256 


0B8A 0C05 


FNE038 


ENQ 


5 




EXIT TO 


4257 


0B8B 1637 




JHP- 


(CALLPT), 


Q 


USER AT NORMAL RETURN 


4258 


0B8C 0B8A 


IOT001 


AOC 


FNE038 




CONTINUE ADDR CCNT) 


4259 


088D 0B86 




ADC 


FNE034 




ERROR AODR (ERR) 


4260 


0B8E 0B7B 




ADC 


FNE020 




HANG A DORR (HNG) 


4261 


0B8F 0000 


IOT0Q2 


NUH 


* 




REJECT BRANCH INSTRUCTION 


4262 


0B90 0000 




NUN 


* 




REPLY BRANCH INSTRUCTION 


4264 




*«««*«*****«»**«********»»****»*******« it********************* 9»«***' 


4265 




* 










<»266 




* 




MONITOR STATUS 




4267 




* 
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OATEI 12/17/74 



4268 



« *«********4M»«^**V*** ********************** **9 ******«»»********•** ****** 



4270 


0B91 0000 


MNEOOQ 


NUM 





4271 


0B92 5426 




RTJ- 


(MPX) 


%Z72 


0B93 541F 




RTJ- 


(FKAEI) 


•♦273 


0B94 C437 




LDA- 


<CALLPT) 


4274 


0B95 611A 




STA- 


XTIME.I 


«»275 


0B96 6118 




STA- 


TIMER»I 


4276 


0B97 5415 




RTJ- 


(CLOCK) 


4277 


0898 003A 




RAO- 


TK32 


4278 


0B99 0037 


MNE0 06 


RAO- 


CALLPT 


4279 


0B9A 0037 




RAO- 


CALLPT 


4280 


0B98 5836 




RTJ» 


IOE050 


4281 


0B9C 5800 
OB90 0092 




RTJ 


IOE200 


4282 


0B9E 60BE 




STA- 


83 


t»283 


0B9F OCFO 




ENO 


-2 


4284 


OBAO F037 




ADQ- 


CALLPT 


i*Z65 


0BA1 4037 




STQ- 


CALLPT 


4286 


QBA2 0A80 




ENA 





4287 


0BA3 E201 




LDQ- 


i.Q 


4288 


0BA4 411C 




STQ- 


STCNTLtl 


4289 


0BA5 0FE8 




LLS 


8 


4?90 


0BA6 60BC 




STA- 


Bl 


4291 


0BA7 OAOO 




ENA 





4292 




•••• THE 


FOLLOWING 


INST IS ONLY 


4293 


0BA8 0FE4 




LLS 


4 


4294 


0BA9 6080 




STA- 


82 


4295 


OBAA 0FA4 




QLS 


4 


4296 


OBAB C331 




LOA- 


ST1.B 


4297 


OBAC EOBC 




LDQ- 


Bl 


4298 


OBAO B27B 




EOR- 


HOOOOtQ 


4299 


OBAE EOBO 




LDQ- 


62 


4300 


OBAF A26B 




AND- 


BITOOtO 


4301 


OBBO 003B 




RAO- 


TK64 


4302 


0B31 011O 




SAN 


NNE016-»-l 


4303 


08B2 COSE 




LOA- 


B3 


4304 


0BB3 0118 




SAN 


MNE012-»-l 


4305 


0884 5415 




RTJ- 


(CLOCK) 


4306 


0BB5 0864 




TCA 


A 


4307 


08B6 811B 




ADD- 


TIHERtI 


4308 


0BB7 6118 




STA- 


TIKERtI 


4309 


0BB8 0131 




SAN 


MNE010-»-l 


4310 


0BB9 180F 




JMP» 


MNE006 


4311 


OBBA OAOO 


MNE010 


ENA 





4312 


OBBB 1802 




JMPV 


NNE014 


4313 


OBBC OA03 


HNE012 


ENA 


3 


4314 


OBBD 0C08 


MNE014 


ENQ 


8 


4315 


OBBE 1802 




JMP» 


MNE018 


4316 


0B8F 0C09 


MNE016 


ENQ 


9 


4317 


OBCO 60BF 


HNE018 


STA- 


B4 


4318 


0BC1 C10A 




LDA- 


HACT«I 



HONITOR STATUS 

POSITION FOR CURRENT ERROR BLK I 
SET THE TIMER 

INTO THE ERROR HESSAGE 

TINE LIMIT 
GET THE CURRENT CLOCK 
UPOATE 32US COUNTER 
ADJUST CALL POINT SO STATUS 

ROUTINE CAN FIND THE PARAMETER 
COPY THE STATUS 
CHECK THE STATUS 



SAVE THE CHECK RESULT 




RESET 




THE 




CALL POINT 




Q 


A 


GET STATUS OCBS 


0000 



SAVE STATUS CONTROL WORD 



CONTROL WORD 
C=COM)ITI0N 1 OR 
B-BIT NUMBER 
GOOD FOR ST1-ST2- CHANST 
S=STATUS TYPE 



BSQO OOOC 



SOOO 
OOOS 



0008 
0008 



GET THE STATUS WORD 

COMPLIMENT THE STATUS 
IF C»l 
HASK OUT ALL BUT THE 

CONTROL BIT 
UPOATE 64 USEC COUNTER 
ZERO SAYS HANG (CONDITION MET) 
SO LOOK FOR STATUS ERROR 
ZERO SAYS STATUS OK 
SO CHECK FOR TIMER EXPIREO 
DECREHENT TIMER 

IF EXPIERED 

GO TO ERROR 

LOOP 

STATUS TIME ERROR 

STATUS ERROR CODE 3 
ERROR RETURN 

NORMAL RETURN 

CHECK OSA ACTIVE FLAG 
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4319 


0BC2 


0107 


4320 


0BC3 


0844 


4321 


08C4 


610A 


4322 


08C5 


C02F 


4323 


0BC6 


09FE 


4324 


0BC7 


602F 


4325 


0BC8 


0111 


4326 


0BC9 


6030 


4327 


OBCA 


C08F 


4328 


OBCB 


1800 




OBCC 


OOAB 


4330 






4331 






4332 






4333 






4334 






4335 






4337 


OBCO 


4952 


4338 


OBCE 


4552 


4339 


OBCF 


5250 


4340 


OBDO 


524A 


4341 


0BO1 


0000 


4342 


OB02 


E101 


4343 


0B03 


5831 


4344 


OB04 


583A 


4345 


0BO5 


6131 


4346 


OB06 


4129 


4347 


OB07 


E102 


4348 


0BO8 


003B 


4349 


0B09 


0151 


4350 


OBOA 


1812 


4351 


OBOB 


5833 


4352 


OBDC 


6133 


4353 


OBOD 


412B 


4354 


OBOE 


003A 


4355 


OBOF 


E103 


4356 


OBEO 


003A 


4357 


0BE1 


014A 


4358 


0BE2 


582C 


4359 


0BE3 


6135 


4360 


08E4 


4120 


4361 


0BE5 


E104 


4362 


BE 6 


003A 


4363 


0BE7 


014F 


4364 


0BE8 


5826 


4365 


0BE9 


6136 


4366 


OBEA 


412E 


4367 


OBEB 


ICES 


4368 


OBEC 


E105 



MNE020 



PAGE 


96 


SAZ 


MNE020-»-l 


CLR 


A 


STA- 


HACT,I 


LOA- 


IOACT 


INA 


-1 


STA- 


10 ACT 


SAN 


MNE020-»-l 


STA- 


NULL 


LOA- 


B4 


JMP 


REE004 



OATEI 12/17/74 



NO-SKIP 
YES-CLEAR IT 

REDUCE NO. OF OSA USERS 

HAS THIS THE LAST USER 

YES- ALLOW A/Q READ/ WRITE REQ 

EXIT MONITOR STATUS 



***** * *** * ************************************ ****»»*»*** ****** ********* 

* * 

* COPY ALL STATUS AS DETERMINED BY ADDRESSES • 

* IN THE ERROR/OPERATION FILE. • 

* » 
************************************************************************ 



IOTOOO 



IOE050 



IOE053 



IOE055 



ALF 


1,IR 


ALF 


ItER 


ALF 


ltRP 


ALF 


i»RJ 


NUM 





LDQ- 


WESTltl 


RTJ» 


IOE1Z0 


RTJ» 


IOE130 


STA- 


ST1,I 


STQ- 


STIRSP.I 


LOQ- 


HEST2.I 


RAO- 


TK64 


SQN 


IOE053-*-l 


JMP» 


IOE055 


RTJ* 


IOE130 


STA- 


ST2,I 


STQ- 


ST2RSP.I 


RAO- 


TK32 


LDQ- 


WEST3.I 


RAO- 


TK32 


SQZ 


IOE055-»-l 


RTJ» 


IOE130 


STA- 


CHST,I 


STQ- 


CHRSP,I 


Loa- 


MEST4iI 


RAO- 


TK32 


SQZ 


I0E058-»-l 


RTJ* 


ZOE130 


STA- 


CHADR.I 


STQ- 


CHARSP«I 


JMP» 


(IOE050) 


LDQ- 


HECHST.I 



RESPONSE MNEMONICS 



COPY STATUS 

BET THE EQUIP STATUS 1 ADDRESS 

SET UP FOR INPUT 

INPUT STATUS 

STORE THE STATUS 

STORE THE RESPONSE 

GET THE EQUIP STATUS 2 ADDRESS 

UPDATE 64US COUNTER 

YES-SKIP 

NONE-JUMP 

INPUT STATUS 

STORE THE STATUS 

STORE THE RESPONSE 

UPOATE 32US COUNTER 

GET EQUIP 3 STATUS ADDRESS 

UPOATE 32US COUNTER 

NONE-SKIP 

INPUT STATUS 

STORE THE STATUS 

STORE THE RESPONSE 

GET EQUIP 4 STATUS ADDRESS 

UPDATE 32US COUNTER 

NONE-SKIP 

INPUT STATUS 

STORE THE STATUS 

STORE THE RESPONSE 

EXIT AFTER 4TH STATUS 

GET THE AODRESS OF THE CHANNEL 
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OATEt 12/17/74 



4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4370 
4379 
4380 
4381 
4382 
4383 
4384 

4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 

4393 
4394 
4395 
4396 
4397 
4398 
4399 



0BEO 
OBEE 
OBEF 
OBFO 
0BF1 
0BF2 
0BF3 
0BF4 
0BF5 
0BF6 
0BF7 
0BF8 
0BF9 
OBFA 
OBFB 
OBFC 
OBFO 
OBFE 
OBFF 
0C00 
0CQ1 
0C02 
0C03 
OC04 
0C05 
0C06 
0C07 
0C08 
DC09 
OCOA 
OCOB 
OCOC 
OCOD 



0149 
D03B 
581F 
6135 
4120 
E1Q5 
F076 
581A 
6136 
412E 
1C09 
0000 
0000 
OOOO 
6123 
COOO 
4F54 
6121 
COOO 
030 A 
680E 
C123 
1CF6 
0000 
COOO 
494E 
6121 
COOO 
020 A 
6805 
0844 
6123 
1CF6 



IOE058 

IOT003 
IOE100 



IOE120 



SQZ 

RAO- 

RTJ* 

STA- 

STQ- 

LOQ- 

ADQ- 

RTJ* 

STA- 

STQ- 

JMP* 

NUM 

NUM 

NUM 

STA- 

LOA 

STA- 

LDA- 

VFD 

STA* 

LDA- 

JMP* 

NUM 

LDA 

STA- 

LOA- 

VFD 

STA* 

CLR 

STA- 

JMP» 



IOE058-»-l 

TK64 

I0E130 

CHSTtI 

CHRSP.I 

HECHSTfl 

BIT11 

IOE130 

CHADR.I 

CHARSP«I 

(IOE050J 





* . 

LINSTA.I 
sAOT 

LINST,I 



N8/S03 V X8/INTREJ 

I0E135 

L INST A, I 

CIOE100) 

* 

sAIN ' 

LINST f I 



N8/$02,X8/INTREJ 

IOE135 

A 

LINSTA»I 

CIOE120) 



NONE SKIP 

UPDATE 64US COUNTER 
INPUT STATUS 
STORE THE STATUS 
STORE THE RESPONSE 
SET UP TO 

COPY THE CURRENT 
INPUT STATUS 
STORE THE ADDRESS 
STORE THE RESPONSE 
EXIT 

REPLY BRANCH INSTRUCTION 
ERR FLAG 

THIS IS AN OUTPUT REQUEST 
(A) TO ERROR MESSAGE 
SET LAST INSTRUCTION 

INTO ERR MESSAGE 
FORM OUTPUT INSTRUCTION 

HITH REJECT INFORMATION 
GET OATA FOR I/O CALL 
EXIT 

THIS AN INPUT REQUEST 
SET LAST INSTRUCTION 

INTO ERROR MESSAGE 
FORM INPUT INSTRUCTION 

HITH REJECT INFORMATION 

SET CA> TO ERROR MESSAGE 
EXIT 



4401 
4402 
4403 
440<t 
4405 
4406 
4407 



» ♦ 

* THIS IS THE ONLY ROUTINE THAT CAN EXECUTE ♦ 

* INPUT/OUTPUT INSTRUCTIONS. THE I/O INSTRUCTION IS * 

* FORMED BY EITHER IOE100 OR IOE120. * 

* ♦ 
*««**v ********* ****** *•*»»*****» ************** ************************** 



4409 
4410 
4411 

4412 
4413 
4414 
4415 



OCOE 0000 
OCOF 0000 
0C10 1800 
0C11 0001 



0C12 4124 
0C13 0C02 



IOE130 NUM 
I0E135 NUM 
IOE140 JMP 



IOE145 



STQ- 
ENQ 



* 
* 
I0E145 



LIKSTQ.I 
2 



EXECUTE I/O INSTRUCTION 
DEVICE REPLY 

READ/WRITE OVERLAYS IOE140+1 

FOR FAST RETURN 
(Q) TO ERROR MESSAGE 
GET RESPONSE NUMBER AND 
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DATEI 12/17/7I» 



1*1*16 


QCi* 5816 


I0E165 


RTJ* 


IOE170 


k<*l7 


0C15 1CF8 




JMP» 


(IOE130) 


<f<»10 


QC16 <»12*» 


IOE150 


STQ- 


LINSTQtl 


<»*19 


0C17 OCOO 




ENQ 





M»2Q 


0C18 18FB 




JMP* 


I0E165 


M»21 


0C19 18FC 




JMP* 


IOE150 


W22 


OC1A 1880 


I0E155 


JMP* 


I0E160 


*»<»23 




* 






V»2% 




* 






W25 




* 






WZ6 


0C1B 003F 




RAO- 


IOTM1 


*»*»27 


0C1C 01A1 




SOV 


I0E156-»-l 


*»*»28 


0C1D 18F1 




JMP*' 


I0E135 


M»29 


0C1E DOM 


I0E156 


RAO- 


I0TH3 


M»30 


0C1F 01A4 




SOV 


I0E157-»~1 


W'31 


0C2O C0«»0 




LOA- 


I0TM2 


M»32 


0C21 603F 




STA- 


IOTMi 


<*33 


0C22 C03E 




LDA- 


10 DATA 


*»«»3*> 


0G23 18EB 




JNP* 


I0E135 


<»i»35 


0C2*» COOO 


I0E157 


LOA- 





W36 


0C25 0000 


IOT00*» 


AOC 





<*37 


0C26 68E7 




STA* 


IOE130 


M*38 


0C27 1*12^ 


IOE160 


STQ- 


LINSTQ f I 


l»i*39 


0C28 QC01 




ENQ 


1 


i»440 


0C29 18EA 




JMP* 


I0E165 


*»W»1 


0C2A 0000 


IOE170 


NUH 


* 


«»<»«»2 


0C2B '»08C 




STQ- 


Bl 


*»<»<t3 


0C2C EAAO 




LOQ* 


IOTOOO.Q. 


*»*»M» 


OC20 M22 




STQ- 


LINRSP.I 


>»i»45 


0C2E 1CFB 




JMP* 


(IOE170) 


Wtb 


OOOA 




EQU 


INTREJCI0E155-I0E135- 


t*t*h7 


7FF<» 




EOU 


I0PFCI0E135-I0E155) 



SET NMENONIC IN ERR MSG 
EXIT 

<Q) TO ERROR MESSAGE 
INT REJECT NUMBER 

INT REJECT *** DEVICE NOT HERE 
EXT REJECT *** HERE NOT READY 
READ/HRITE OVERLAYS I0E155 

WITH STA- IOOATA TO ENABLE 

MILLISEC COUNTER 
INCREMENT FAST CLOCK 

SKIP ON 1 MILLISEC 
KEEP TRYING 
INCREMENT SLOW CLOCK 
SKIP ON TIME OUT ERR 
REFRESH FAST 

CLOCK 
GET DATA AND 
REPEAT I/O 
SET ERROR AODRESS 

FOR TIME OUT 

(Q) TO ERROR MESSAGE . 
EXT REJECT NUMBER 



SAVE RESPONSE NUMBER 
SET RESPONSE NMENONIC 
TO ERR MESSAGE 

-1) 



Mi50 


0C2F 


0000 


i»*»5i 


0C30 


0A00 


M»52 


0C31 


68C7 


M»53 


0C32 


C105 


kkSk 


0C33 


0113 


MSB 


0C34» 


C103 


H56 


0C35 


0111 


M»57 


0C36 


1810 


V»58 


0C37 


E037 


kkS9 


0C38 


O03A 


Itk60 


0C39 


C202 


M»61 


0C3A 


E203 


1*1*62 


0C3B 


0882 


W63 


0C3C 


086«i 


kkSi* 


0C3O 


A135 


i*i*6S 


0C3E 


087*» 


1*1*66 


0C3F 


6130 



IOE200 



IOE2 02 



NUM 





ENA 





STA* 


IOT003 


LDA- 


HECHST.I 


SAN 


IOE202-*-* 


LDA- 


WEST3*I 


SAN 


I0E2Q2-*-l 


JMP* 


IOE208 


LDQ- 


CALLPT 


RAO- 


TK32 


LDA- 


2.Q 


LDQ- 


3,0. 


LAQ 


Q 


TCA 


A 


ANO- 


CHSTtI 


EAQ 


A 


STA- 


XCHSTtI 



CHECK STATUS 
CLEAR THE 

ERROR SWITCH 
IS THERE A CHANNEL 
YES— SKIP 

IS THERE A STATUS 3 
YES-SKIP 
NO-JUMP 

YES-CALCULATE EXPECTED CHAN STAT 
UPDATE 32 USEC COUNTER 
GET THE MASK 
GET THE VALUE 
CALCULATE THE 

EXPECTED STATUS BY 

USING THE MASKt VALUE 

AND ACTUAL STATUS 
STORE EXPECTED STATUS 
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DATE! 12/17/7** 



4467 


0C40 


B135 


EOR- 


CHSTtI 


4468 


0C41 


0101 


SAZ 


IOE204-»-l 


4469 


0C42 


08B6 


RAO» 


IOT003 


4470 


0C43 


C105 IOE204 LOA- 


WE CHS T, I 


4471 


0C44 


0112 


SAN 


IOE206-»-l 


4472 


QC45 


C104 


LDA- 


HEST4tI 


4473 


0C46 


010C 


SAZ 


IOE208-»-l 


4474 


0C47 


E037 IOE206 LDQ- 


CALLPT 


4475 


0C48 


0039 


RAO- 


TK16 


4476 


0C49 


C204 


LDA- 


4«Q 


4477 


0C4A 


E205 


LDQ- 


5,Q 


4478 


0C4B 


08B2 


LAQ 


Q 


4479 


QC4C 


0864 


TCA 


A 


4480 


0CM> 


A136 


AND- 


CHAORyl 


4481 


0C4E 


0874 


EAQ 


A 


4482 


0C4F 


613E 


STA- 


XCHADR,I 


4483 


OC50 


B136 


EOR- 


CHADR.I 


4484 


0C51 


0101 


SAZ 


IOE208-*-l 


4«»85 


0C52 


08A6 


RAO» 


IOT003 


4486 


0C53 


C102 IOE208 LDA- 


HEST2*I 


4487 


0C54 


010C 


SAZ 


I0E212-»-l 


4488 


0C55 


O03A 


RAO- 


TK32 


4489 


0C56 


E037 


LDQ- 


CALLPT 


4490 


DC57 


C206 


LOA- 


6,Q 


4491 


0C58 


E207 


LDQ- 


7,0. 


4492 


0C59 


08B2 


LAQ 


Q 


4493 


0C5A 


0864 


TCA 


A 


4494 


0C5B 


A133 


AND- 


ST2,I 


4495 


0C5C 


0874 


EAQ 


A 


4496 


0C5O 


613B 


STA- 


XST2.I 


4<»97 


0C5E 


B133 


EOR- 


ST2,I 


4498 


0C5F 


0101 


SAZ 


I0E212-*-i 


4499 


0C60 


0898 


RAO» 


IOT003 


4500 


0C61 


E037 I0E212 LDQ- 


CALLPT 


4501 


0C62 


O03A 


RAO- 


TK32 


4502 


0C63 


C437 


LDA- 


CCALLPT) 


4503 


0C64 


E201 


LOQ- 


i.Q 


4504 


0C65 


0882 


LAQ 


Q 


4505 


0C66 


0864 


TCA 


A 


4506 


0C67 


A131 


AND- 


STl f I 


4507 


0C68 


0874 


EAQ 


A 


4508 


0C69 


6139 


STA- 


XSTi.I 


4509 


0C6A 


6131 


EOR- 


ST1,I 


4510 


0C6B 


0101 


SAZ 


I0E214-»-l 


4511 


0C6C 


088C 


RAO* 


IOT003 


4512 


0C6O 


C88B I0E214 LOA* 


IOT003 


4513 


0C6E 


1CC0 


JMP* 


(IOE200) 


4514 


0C6F 


0000 REE000 NUM 





4515 


0C7O 


5426 


RTJ- 


CMPX) 


4516 


0C71 


541F 


RTJ- 


CFHAEI) 


4517 


QC72 


5 BBC REE 02 RTJ» 


IOE200 


4518 




* 






4519 


0C73 


0C07 


ENQ 


7 



DOES EXPECTED EQUAL ACTUAL 

YES-SKIP 

NO-SET ERR FLAG 

CHECK AGAIN FOR CHANNEL 

YES— SKIP 

IS THERE A STATUS 4 

NO-SKIP 

CALCULATE EXPECTEO STATUS 

UPDATE 16 USEC COUNTER 

GET THE MASK 

GET THE VALUE 

CALCULATE THE 

EXPECTED ADDRESS BY 

USING THE MASK, VALUE 

AND ACTUAL ADDRESS 
STORE EXPECTED ADDRESS 
DOES EXPECTED EQUAL ACTUAL 
YES-SKIP 
NO-SET ERR FLAG 
IS THERE A STATUS 2 
NO-SKIP 

UPDATE 32 USEC COUNTER 
YES-CALCULATE EXPECTED STATUS 
GET THE MASK 
GET THE VALUE 
CALCULATE THE 

EXPECTED STATUS BY 

USING THE MASK«VALUE 

AND ACTUAL STATUS 
STORE EXPECTED STATUS 
DOES EXPECTED EQUAL ACTUAL 
YES-SKIP 
NO-SET ERR FLAG 
CALCULATE EXPECTED STATUS 1 
UPDATE 32 USEC COUNTER 
GET THE MASK 
GET THE VALUE 
CALCULATE THE 

EXPECTEO STATUS BY 

USING THE MASK, VALUE 

AND ACTUAL STATUS 
STORE EXPECTED STATUS 
OOES ACTUAL EQUAL EXPECTEO 
YES— SKIP 

NO-SET THE ERR FLAG 
LOAD THE ERROR FLAG 

AND EXIT 
RECHECK STATUS 

POSITION FOR CURRENT ERROR BLK I 
CHECK THE STATUS 

RETURN (A»=0=NO ERRS 
NORMAL RETURN TO BE 
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PAGE 


100 


4520 


OC74 


0102 




SAZ 


REE0Q4-*-l 


4521 


OC75 


0A03 




ENA 


3 


4522 


OC76 


QC06 




ENQ 


6 


4523 


OC77 


610F 


REEO 04 


STA- 


MNTERR,I 


4524 


OC78 


C102 




LDA- 


WEST2,I 


i*SZ5 


OC79 


0101 




SAZ 


REE005-*-l 


4526 


OC7A 


0002 




INd 


2 


4527 


OC7B 


C10F 


REE0 05 


LOA- 


MNTERRtI 


4528 


OC7C 


003A 




RAO- 


TK32 


4529 


OC7D 


1637 


REEO 06 


JMP- 


(CALLPT),Q 


4530 


OC7E 


0000 


CKEOOO 


NUH 





4531 


OC7F 


5426 




RTJ- 


(MPX) 


4532 


ocao 


541F 




RTJ- 


(FWAEI) 


4533 


OC81 
OC82 


5800 
FF4E 




RTJ 


IOE05O 


4534 


OC83 


18EE 




JMP* 


REE002 



OATEI 12/17/74 



USED IF A=0 
STATUS ERROR CODE 3 
ERROR RETURN 
SAVE ERROR COOE 
IF THERE IS A 

STATUS 2 

ADJUST RETURN 

ADORES 
UPDATE 32 USEC COUNTER 
EXIT 
COPY AND CHECK STATUS 

POSITION FOR CURRENT ERROR 8LK I 
COPY STATUS 

GO TO RE-CHECK ROUTINE 



4536 






4537 






4538 






4539 






4540 






4541 






4542 






4543 






4545 


0C84 


0000 


4546 


0C85 


E000 




0C86 


0D26 


4547 


0C87 


C073 


4548 


0C88 


5406 


4549 


0C89 


1201 


4550 


0C8A 


541F 


4551 


0C8B 


E10F 


4552 


0C8C 


CA10 


4553 


QC8D 


6818 


4554 


OCSE 


0814 


4555 


0C8F 


0842 


4556 


0C90 


5863 


4557 


0C91 


CUD 


4558 


0C92 


OFCC 


4559 


0C93 


5868 


4560 


0C94 


0FC8 


4561 


0C95 


60BE 


4562 


0C96 


CUE 


4563 


0C97 


0FC4 


4564 


0C98 


5863 


4565 


0C99 


BOBE 



****** ************************************************************ ****** 

* * 

* ERROR ROUTINE » 

* THIS ROUTINE SETS UP THE SMH ERROR CALL » 

* FOR ALL HBS I/O DETECTED ERRORS. THE ERROR DATA IS » 

* PICKED UP FROM THE TESTS ERROR FILE. * 

* * 
************************************************************************ 



ERE0 00 



NUM 


* 


loq 


*XERE 0*15-1 


LOA- 


BIT08 


RTJ- 


(JUMP) 


JHP- 


1>Q 


RTJ- 


(FNAEI) 


LOQ- 


MNTERR,I 


LDA» 


ERT004.Q 


STA» 


ERT005 


TRQ 


A 


CLR 


Q 


RTJ* 


ERE025 


LOA- 


LOPER,I 


ALS 


12 


RTJ* 


ERE070 


ALS 


8 


STA- 


B3 


LDA- 


LOPRSP.I 


ALS 


4 


RTJ* 


ERE070 


EOR- 


B3 



CHECK OMIT TYPEOUTS 

YES CALL JUMP ROUTINE 
POSITION CURRENT ERR FILE 
GET CONTINUE ADDRESS 

BASED ON MBS 

ERROR COOE 

RE-INITIALIZE POINTER 
MAKE MBS CODE 1ST ENTRY 
GET LAST OPERATION (ASCII) 
CONVERT HR/RD/FN COOE 
CONVERT ASCII 
SAVE LAST I/O 

CODE 
GET LAST I/O RESPONSE 
GET RESPONSE CODE 
CONVERT ASCII 
ADD THE RESPONSE COOE 
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SNH000 


PAGE 


101 


4566 


0C9A 


5859 


RTJ* 


ERE025 


4567 


0C98 


C11F 


LDA- 


LOPERA.I 


4568 


0C9C 


5857 


RTJ* 


ERE025 


4569 


OC90 


C120 


LDA- 


LOPERQ.,1 


4570 


0C9E 


5855 


RTJ* 


ERE025 


4571 


0C9F 


C131 


LDA- 


STltl 


4572 


OCAO 


5853 


RTJ* 


ERE025 


4573 


0CA1 


CCE2 


LOA* 


CEREOOO) 


i*57k 


0CA2 


6876 


STA* 


ERT001 


4575 


0CA3 


E8E0 


LDQ* 


EREOOO 


4576 


0CA4 


C202 


LDA- 


2tQ 


4577 


0CA5 


6874 


STA* 


ERT002 


4578 


0CA6 


OC05 


ENQ 


5 


4579 


0CA7 


1400 


JMP- 


(0) 


4580 


OCAS 


0CA8 ERT0 05 ADC 


* 


4581 


0CA9 


OCAE ERT004 ADC 


ERE05 


4582 


OCAA 


0C83 


ADC 


ERE060 


4583 


OCAB 


0005 


AOC 


ERE040 


4584 


OCAC 


0CB6 


ADC 


ERE080 


4585 


OCAO 


0CD5 


ADC 


ERE090 


4586 


OCAE 


5830 ERE050 RTJ* 


ERE010 


4587 


OCAF 


5848 


RTJ* 


ERE035 


4588 


OCBO 


cue 


LOA- 


STCNTL,I 


4589 


0CB1 


5842 


RTJ* 


ERE025 


1*590 


0CB2 


1853 


JMP* 


ERE040 


4591 


0CB3 


582B ERE060 RTJ* 


ERE010 


4592 


0CB4 


5843 


RTJ* 


ERE035 


i*593 


0CB5 


1850 


JMP* 


ERE040 


4594 


0CB6 


C139 ERE080 LOA- 


XST1,I 


1*595 


0CB7 


583C 


RTJ* 


ERE025 


4596 


0CB8 


C102 


LOA- 


WEST2,I 


4597 


0CB9 


0111 


SAN 


ERE082-*-l 


4598 


OCBA 


1812 


JMP* 


ERE085 


4599 


OCBB 


C133 EREQ82 LDA- 


ST2,I 


4600 


OCBC 


5837 


RTJ* 


ERE025 


4601 


OCBD 


C13B 


LDA- 


XST2.I 


4602 


OCBE 


5835 


RTJ* 


ERE025 


4603 


OCBF 


C103 


LOA- 


WEST3.I 


4604 


OCCO 


010B 


SA2 


EREQ85-*-l 


4609 


0CC1 


C135 


LOA- 


CHST,I 


4606 


0CC2 


5831 


RTJ* 


ERE025 


46 07 


0CC3 


C130 


LDA- 


XCHST,I 


4608 


0CC4 


582F 


RTJ* 


ERE025 


4609 


0CC5 


C104 


LDA- 


HEST4.I 


4610 


0CC6 


010O 


SAZ 


ERE015-*-l 


4611 


0CC7 


C136 


LDA- 


CHADR.I 


4612 


0CC8 


582B 


RTJ* 


ERE025 


4613 


0CC9 


C13E 


LOA- 


XCHADR.I 


4614 


OCCA 


5829 


RTJ* 


ERE025 


4615 


OCCB 


183A 


JMP* 


ERE040 


4616 


OCCC 


C105 ERE085 LDA- 


WECHST,! 


4617 


OCCO 


0106 


SAZ 


ERE015-*-l 


4618 


OCCE 


C135 


LDA- 


CHST,I 



OATEJ 12/17/74 



SET NO. IN TABLE 
GET (A) FOR ERR TBL 

GET (Q) FOR TABLE 

GET ACTUAL STATUS 1 



SAVE SECT/ERROR CODE 
GET THE ADOR OF THE 
ERROR CALLER 



PTC2 
PTC2 

PTC3 



CONTINLE ADDRESS 

ERROR CODES 00 STATUS TIME OUT 

01 I/O TIME OUT 

02 I/O RESPONSE 

03 STATUS 

04 INT TIME OUT 
GET ALL ACTUAL STATUS 

GET ACTUAL CLOCK (MILLISEC) 
GET STATUS CONTROL WORD 

REPORT THE ERROR 
GET STATUS 

AND CLOCK 
REPORT THE ERROR 
GET EXPECTED STATUS 1 

IS THERE A STATUS 2 
YES-SKIP 
NO-JUMP 

GET ACTUAL AND EXPECTED 
STATUS 2 



IS THERE A STATUS 3 

NONE-SKIP 

YES GET ACTUAL 

AND EXPECTED 

STATUS 

IS THERE A STATUS 4 

NONE-SKIP 

YES GET ACTUAL 

AND EXPECTEO 

STATUS 



IS THERE A 1706/1716 
NO 
YES GET ACTUAL 
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4619 


OCCF 


5824 




RTJ* 


ERE025 


4620 


OCOO 


C130 




LOA- 


XCHST,I 


«»621 


0CO1 


5822 




RTJ* 


ERE025 


4622 


0CO2 


C136 




LDA- 


CHAOR.I 


4623 


0CO3 


5820 




RTJ* 


ERE025 


4624 


OC04 


1831 


EREO 15 


JMP* 


ERE040 


4625 


OC05 


5809 


ERE090 


RTJ* 


ERE010 


4626 


OC06 


5821 




RTJ» 


ERE035 


4627 


OC07 


C125 




LOA- 


IMR,I 


4628 


OC08 


581B 




RTJ* 


ERE025 


4629 


0CD9 


C127 




LDA- 


LINENOtI 


4630 


OCOA 


5819 




RTJ* 


ERE025 


4631 


OCOB 


C119 




LDA- 


ITLINS,I 


4632 


OCOC 


5817 




RTJ* 


ERE025 


4633 


OCOO 


1828 




JMP* 


ERE040 


4634 


OCDE 


0000 


ERE010 


NUM 


* 


4635 


OCOF 


CIO 2 




LOA- 


WEST2,! 


4636 


OCEO 


0108 




SAZ 


ERE012-*-l 


4637 


0CE1 


C133 




LDA- 


ST2,I 


4638 


0CE2 


5811 




RTJ* 


ERE025 


4639 


0CE3 


C103 




LDA- 


HEST3,I 


4640 


0CE4 


0107 




SAZ 


ERE012-»-l 


4641 


0CE5 


C135 




LDA- 


CHST,I 


4642 


0CE6 


5800 




RTJ» 


ERE025 


4643 


0CE7 


C104 




LDA- 


WEST4»I 


4644 


0CE8 


0109 




SAZ 


ERE020-*-l 


4645 


0CE9 


C136 




LOA- 


CHAORtI 


4646 


OCEA 


5809 




RTJ* 


ERE025 


4647 


OCEB 


1807 




JMP* 


ERE020 


4648 


OCEC 


C105 


EREO 12 


LOA- 


WECHST.I 


4649 


OCED 


0104 




SAZ 


ERE020-*-! 


4650 


OCEE 


C135 




LDA- 


CHST,I 


4651 


OCEF 


5804 




RTJ» 


ERE025 


4652 


OCFO 


C136 




LDA- 


CHADR.I 


4653 


0CF1 


580 2 




RTJ* 


ERE025 


4654 


0CF2 


1CEB 


ERE020 


JMP* 


(ERE010) 


4655 


0CF3 


0000 


ERE025 


NUM 


* 


4656 


0CF4 


6A26 




STA* 


ERT003,Q 


4657 


0CF5 


0O01 




INQ 


1 


4658 


0CF6 


1CFC 




JMP» 


(EREO 25) 


4659 


0CF7 


0000 


EREO 35 


NUM 


* 


4660 


0CF8 


C11A 




LDA- 


XTIME.I 


4661 


0CF9 


58F9 




RTJ» 


ERE025 


4662 


OCFA 


1CFC 




JMP* 


(ERE035) 


4663 


OCFB 


0000 


ERE070 


NUM 


* 


4664 


OCFC 


0134 




SAM 


ERE072-»-i 


4665 


OCFO 


0FC1 




ALS 


1 


4666 


OCFE 


0134 




SAM 


ERE074-*-! 


4667 


OCFF 


0A1O 




ENA 


$10 


4668 


ODOO 


1804 




JMP* 


ERE076 


4669 


0D01 


0A30 


ERE072 


ENA 


$30 


4670 


0002 


1802 




JMP* 


ERE076 


4671 


0003 


0A20 


ERE 074 


ENA 


$20 



DATE* 12/17/74 



AND 
EXPECTED STATUS 

GET CHANNEL ADDRESS 

ACTUAL ANO EXPECTED 
REPORT THE ERROR 



GET MASK VALUE 

GET SPECIFIC LINE NO. 

GET LINES ASSIGNED THIS TEST 

REPORT THE ERROR 

IS THERE A STATUS 2 
NO-EXIT 
YES 

IS THERE A STATUS 3 

NONE-SKIP 

YES GET IT 

IS THERE A STATUS 4 
NONE-SKIP 



IS THERE A 1706/1716 
ZERO SAYS NO 
YES-GET ACTUAL VALUES 



EXIT 

TO ERROR TABLE 

GET EXPECTED TIME 

EXIT 

WR=10=REPLY 
RO=20=EXT REJ 
FN=30=INT REJ 
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1*672 


0004 


1CF6 


ERE076 


JHP» 


(ERE070) 


4673 


0D05 


4812 


EREOdO 


STQ* 


ERTOOO 


4674 


0006 


E091 




LOQ- 


TSACTV 


4675 


0007 


C291 




LDA- 


TSFREQ-1,Q 


4676 


0008 


A082 




ANO- 


HFFOO 


4677 


0009 


OFCC 




ALS 


12 


4678 


000 A 


E80O 




LOQ* 


ERTOOO 


4679 


OOOB 


680C 




STA* 


ERTOOO 


4680 


OOOC 


0644 




CLR 


A 


4681 


OOOO 


58E5 




RTJ* 


ERE025 


4682 


OOOE 


0F21 




QRS 


1 


4683 


OOOF 


C808 




LOA» 


ERTOOO 


4684 


0010 


0874 




EAQ 


A 


4665 


0011 


0FC4 




ALS 


4 


4686 


0012 


B06E 




EOR- 


8IT03 


4687 


0013 


6804 




STA» 


ERTOOO 


4688 


0014 


0844 




CLR 


A 


4689 


0015 


5402 


ERE100 


RTJ- 


(STOP) 


4690 


0016 


1811 




JHP* 


ERE045 


4691 


0017 


0000 


ERTOOO 


NUH 


* 


4692 


0018 


0000 


ERT001 


NUM 


» 


4693 


0019 


0000 


ERT002 


NUH 


* 


4694 


001A 


0000 


ERT003 


NUM 


» 


4695 


001B 


0000 




NUH 


* 


4696 


001C 


0000 




NUM 


* 


4697 


0010 


0000 




NUN 


* 


4698 


001E 


0000 




NUH 


« 


4699 


001F 


0000 




NUH 


* 


4700 


0020 


0000 




NUH 


* 


4701 


0021 


0000 




NUH 


* 


4702 


0022 


0000 




NUM 


* 


4703 


0023 


0000 




NUH 


« 


4704 


0024 


0000 




NUH 


* 


4705 


0025 


0000 




NUH 


* 


4706 


0026 


0000 




NUH 





4707 


0027 
0028 


E800 
FF5B 


ERE 45 


LDQ 


EREOOO 


4708 


0D29 


40FF 




STQ- 


I 


4709 


002A 


E201 




LDQ- 


1*Q 


4710 


0D2B 


ODFE 




INQ 


-1 


4711 


0O2C 


0A10 




ENA 


$10 


4712 


0O2O 


5406 




RTJ- 


(JUMP) 


4713 


0O2E 


1201 




JHP- 


1,0. 


4714 


002F 


1103 




JHP- 


3,1 



OATEl 12/17/74 



EXIT 

NUMBER OF STOPS 

GET TEST NUHBER 



NOW HAVE SXXYZ 
ADO A BLANK 
TO THE TABLE 
NO, OF STOPS 
GET TEST NO. 
SET NO, OF STOPS 
ADO IN 

THE ERROR STOP 



REPORT ERROR 

SXXYZ PARAHETER 

SSSEE PARAHETER 

TEST RETURN ADDRESS 

HBS ERROR CODE 0000-0004 

LAST OPER FN/RD/WR - 10/20/30 

LAST OFERATION (A) 

LAST OFERATION (Q) 

STATUS1 



BLANK 

GET REPEAT CONDITIONS 

AOORESS 



CHECK REPEAT CONDITIONS 



REPEAT 
NO 



PTC2 
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DATEI 12/17/74 



4716 
4717 
&718 
4719 
4720 
4721 
4722 
4723 



************************************** ************************* ********* 

» TIME CLOCK ROUTINE • 

* SUMS ELASPEO TIME SINCE ROUTINE HAS LAST CALLED * 

♦ ALL USEC COUNTERS ARE CLEARED » 

♦ ELASPED TIME IS ADDED TO TCLOCK » 

* ROUTINE CALL * 

♦ RTJ- (CLOCK! » 

• UPON LEAVING ROUTINE (A)=TCLOCK (VALUE IN MSEC) * 
***********»***«******»****************#**»*****»******»*******«*****•** 



4726 


0D30 


0000 TIEOOO NUN 


4727 


0031 


003C TIE001 RAO- 


4728 


0O32 


003B 


RAO- 


4729 


0O33 


0039 


RAO- 


4730 


0034 


C03C 


LDA- 


4731 


0D35 


0FC1 


ALS 


4732 


0036 


803B 


ADO- 


4733 


0037 


0FC1 


ALS 


4734 


0038 


803A 


AOO- 


4735 


0O39 


0FC1 


ALS 


4736 


0D3A 


8039 


ADD- 


4737 


0D3B 


0FC4 


ALS 


«»738 


003C 


E834 


LOQ» 


4739 


0030 


2A34 


MUI» 


4740 


003E 


0F67 


LRS 


4741 


0D3F 


8038 


ADD- 


4742 


0040 


0842 


CLR 


4743 


0041 


3000 


DVI 




00*12 


03E8 




4744 


0043 


4038 


STQ- 


4745 


00<»4 


8831 TIE0 02 ADO* 


4746 


0045 


6830 


STA* 


4747 




* 




4748 


0O46 


9109 


SUB- 


4749 


00<»7 


6039 


STA- 


4750 


0048 


OCOF 


ENQ 


4751 


0049 


CAOO TIE0 03 LOA 




OD<»A 


FCF6 




4752 


0D4B 


0107 


SAZ 


4753 


004C 


9039 


SUB- 


4754 


OOHO 


0125 


SAP 


4755 


00<»E 


40BE 


STQ- 


4756 


00<»F 


0A07 


ENA 


4757 


0050 


5428 


RTJ- 


4758 


0051 


E08E 


LDQ- 


<»759 


0052 


08<»4 


CLR 


4760 


0053 


6A00 TIE004 STA 




0054 


FCEC 




4761 


0055 


OOFE 


INQ 





TK128 

TK64 

TK16 

TK128 

1 

TK64 

1 

TK32 

1 

TK16 

4 

TITOOO 

TITQOl.Q 

7 

TKR 

Q 

=N1000 

TKR 

TCLOCK 

TCLOCK 

PRGCLKtl 

TK16 

15 

INTOOl-ltQ 

TI£004-»-l 

TK16 

TIE00i»-»-l 

B3 

ITIMER 

(SMERROR) 

S3 

A 

INT001-1.Q 

-1 



PROCESSING CONSTANTS 

208US TOTAL NO INTS ACTIVE 
ADD 3.3US EACH ACTIVE INT 
128 USEC COUNTER 
MULTIPLY BY TWO 

ANO AOO NEXT USEC COUNTER 

CONTINUE THIS PROCESS 

UNTIL LAST 

USEC 

COUNTER IS ADDED 
MULT BY 16 TO GET MICROSEC 
MAKE Q REFLECT MEMORY SPEED 
SPEED FACTOR 
DIVIOE BY 128 
AOO REMINDER FROM LAST CLOCK 

TIME 
CONVERT USEC TO MILLISEC 

SAVE REMAINDER 

PTC2 
RUNNING TOTAL PTC2 

I REG=CURRENT ERROR FILE AOOR 



DECREMENT 

ALL THE CLOCKS 

THAT ARE RUNNING 



SAVE THE LINE NO. 

REPORT SYS TIME OUT ERROR 

CLEAR THIS LINE 
AND CONTINUE 



LOOP TILL ALL CLOCKS DONE 
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4762 


ODS6 


01<»1 




SQZ 


TIE006-*-l 


4763 


OD57 


18F1 




JMP* 


TIE003 


4764 


0058 


C02E 


TIE006 


LOA- 


INTFLG 


4765 


0059 


0111 




SAN 


TIE010-*-i 


4766 


005A 


180B 




JMP* 


TIE050 


4767 


0O5B 


OCOE 


TIE010 


ENQ 


14 


4768 


0O5C 
005D 


CAOO 
FCF2 


TIEOli 


LDA 


INT002-1»Q 


4769 


0O5E 


0123 




SAP 


TIE012-*-i 


4770 


0D5F 


A087 




AND- 


H7FFF 


4771 


0060 
0061 


6AO0 
FCDF 




STA 


INT001-1.Q 


**772 


0062 


OOFE 


TIE012 


INQ 


-1 


4773 


0063 


0171 




SQM 


TIE050-*-l 


i*77k 


0064 


18F7 




JMP* 


TIEOli 


4775 


0D65 


C810 


TIE050 


LOA* 


TCLOCK 


4776 


0066 


6109 




STA- 


PRGCLK.I 


4777 


0067 


C039 




LDA- 


TK16 


4778 


0068 


0842 




CLR 


Q 


4779 


0069 


403C 




STQ- 


TK128 


4780 


006A 


(»03B 




STQ- 


TK64 


4781 


0D6B 


403A 




STQ- 


TK32 


4782 


006C 


<»039 




STQ- 


TK16 


4783 


0060 


402E 




STQ- 


INTFLG 


4784 


0O6E 


01B0 




SNO 





4785 


0O6F 


1CC0 




JMP* 


(TIEOOO) 


4786 


0O70 


0000 


TITOOO 


NUM 


* 


4787 


0071 


007F 


TIT001 


NUM 


127 


<»788 


0D72 


OOAD 




NUM 


173 


4789 


0073 


0067 




NUM 


103 


4790 


0D74 


0045 




NUM 


69 


4791 


0075 


0000 


TCLOCK 


NUM 






OATEl 12/17/74 



SOHE INTS HAVE OCCUREO 



OVERLOAO TIMER TABLE 

SKIP IF NOT ACTIVE 

REMOVE FLAG 

MOVE TO ACTIVE TABLE 



PTC2 



TIME TO A 

CLEAR 

USEC 

COUNTERS 

RESET INT HAS OCCURED SWITCH 
CLEAR POSSIBLE OV 



1704 / 1714 
177* 
1784-1 
1784-2 



PTC2 



4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 



***************** ********* *********************************** *********** 

* » 

* RANOOM DELAY * 

* A MINIMUM AND MAXIMUM VALUE IN MILLISECONDS * 

* IS GIVEN — THE DELAY WILL RANGE SOHEWHERE * 

* BETWEEN THESE TWO VALUES * 

* CALL IS AS FOLLOWS— * 

* RTJ- IR0MDLY1 * 

* +0 NUM SXXXX * 

* +1 NUM SYYYY WHERE $YYYY-$XXXX IS GREATER * 

* +2 RETURN THAN $0 BUT LESS THAN S7FFF * 

* * 
«««*»«********«***»***»*****«***************»*«*»*****+***************** 



4807 0076 0000 XOEOOO NUM 

4808 0077 COOO XDE001 LDA 
0078 0082 



= XXDT001 



ENTRY 

AOOR TO CONTAIN RANDOM TIME 
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4809 


0079 0CO1 




ENQ 


1 


<»810 


007A 5407 




RTJ- 


CGENRQM) 


Mil 


007B C807 




LDA* 


XOT001 


4812 


007C 9CF9 




SUB* 


CXDEOOO) 


4813 


0070 0137 




SAM 


XDE002-*-l 


4814 


0D7E CCF8 




LOA* 


CXOEOOO+ll 


4815 


0D7F 9803 




SUB* 


XOT001 


4816 


0O80 0134 




SAM 


XDE002-*-l 


4817 


0081 5417 




RTJ- 


IFIXDLY) 


4818 


0082 0000 


XDT0 01 


NUM 


* 


4819 


0O83 E8F2 




LOO* 


XOEOOO 


4820 


0084 1202 




JMP- 


2,Q 


4821 


0085 18F1 


XOE0 02 


JMP* 


XOE001 



DATE! 12/17/74 



NO. OF WORDS TO GENERATE 
GET A RANDOM NUMBER 



SKIP IF NUMBER TOO SMALL 



SKIP IF NUMBER TOO LARGE 

EXECUTE FIXED OELAY 

OELAY VALUE - RANDOM NUMBER 

EXIT ROUTINE 

NUMBER OUT OF LIMITS, BO AGAIN 



4823 
4824 
4825 
4826 
4827 
4828 



********«*****«*****.*«*******«******«***«*«*****•«******«**************« 

* * 

» FIXED OLEAY ROUTINE DELAYS A SPECIFIED NUMBER OF MILLISECONDS * 

* TIME PER INS IS INDICATED BEFORE COMMENT FEILO * 

* * 
w*»**vw*w**«* *********************************************** ********* 



4831 
48 32 
4833 
4834 
<»635 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
<i844 



************************************************************************ 

* * 

♦ THE DELAY LOOPS ARE SET UP TO PROVIDE AS MUCH ACCURACY AS THE » 



1700 WILL PERMIT. 
UP TO ZERO GIVING A 



THERE ARE TWO LOOPS - THE FIRST COUNTS A REG * 
393US DELAY PER COUNT, OR 990US FOR $12C * 

* COUNTS. THE SECOND LOOP COUNTS UP TO ZERO, THE NUMBER OF COUNTS* 

* NORMALLY SPECIDIES THE NUMBER OF MS DELAY, FOR 1 PASS THE INS * 

* TIME TO ENTER AND EXIT LOOP = 10US. THUS THE TOTAL TIME TO * 

* EXECUTE EACH PASS THROUGH SECOND LOOP =990US (FOR FIRST LOOP) * 

* PLUS 10USCFOR SECONO) = 1000US TOTAL. 2T IS POSSSIBLE TO SET A TO* 

* A VALUE GREATER THAN -$12C AND DECREASE FIRST PASS THROUGH BOTH * 

* LOOPS BY 393US FOR EACH COUNT GREATER THAN -S12C. 

* * 
*********** ********************************************** *************** 



4846 
4847 
4848 
4849 
4850 
4851 
4852 



0086 0000 
0D87 C8FE 
0D88 0901 



ENTRY ♦ EXIT JUMPS 



1704/14 1774 178l»-l 1784-2 
**** **** **»» ***• 

5.5 8.0 4.5 3.0 



FXE000 



NUM 





LOA* 


FXE000 


INA 


1 



ENTRY POINT 

CALLPOINT 2.2 3.0 

SET FOR CORRECT RETURN 



1.8 



1.2 
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OATEl 12/17/74 



«»853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4665 
4866 
4867 

4869 

48 71 
4672 
4873 

4875 

4877 
4878 
4879 
4880 
4881 
4882 
4883 

4865 
4886 
4687 
4888 
4889 
4890 
4891 
4892 
4893 
4894 



0D89 6037 

0O8A E8E5 
ODSB CA15 
008C 6816 
008O CAOF 
008E ECF7 

008F 0152 

0D90 D8F5 

0091 1CF4 

0092 0852 



0D93 0901 
0094 0121 
0D95 18F0 



0096 0001 

0097 OAOO 

0098 C80C 

0099 0161 
009A 18F8 
0O9B 1437 



009C 
OD90 
0D9E 
0D9F 
OOAO 
Q0A1 
0OA2 
0OA3 
0DA4 



FEOA 
FF40 
FE9C 
FDE6 
FE02 
FF39 
FE94 
FDOE 
0000 



FXE0 02 

* 

* 
OLEOOO 

DLE0 05 

* 

OLE010 

* 
FXT001 

OLT001 

OLT003 



STA- 

LOQ» 
LOA* 
STA* 
LDA» 
LDQ» 

SQ.N 

RAO» 
JMP» 
TCQ 



INA 
SAP 
JHP» 



INQ 

ENA 

LOA* 

SQP 

JMP» 

JMP- 



NUM 
NUH 
NUM 
NUN 
NUN 
NUN 
NUN 
NUN 
NUN 



CALLPT 

TITOOO 

DLT001.Q 

OLT003 

FXT001.Q 

(FXEOOO) 

FXE002-*-i 

FXEOOO 

(FXEOOO) 

Q 



1.1 
SAVE RETURN AOORESS 

2.2 
X4 TYPE TO Q 2.2 
LOOP CONSTNT 2.2 
FUTURE USE 2.2 



1.5 

3.0 
3.0 
3.5 
3.0 
3.5 



0.9 

1.8 
1.8 
2.2 
1.8 
2.2 



1ST CONSTANT 2.2 

DELAY COUNT IN NILLISECONDS 

3.3 4.5 2.7 
SKIP IN NON ZERO 

1.1 2.0 0.9 

EXIT IF ZERO TINE 
COMPLEMENT DELAY COUNT 



990* US LOOP TIMES 



3.3 



OLT003 
DLEQ10-»-l 
OLEOOO 
(CALLPT) 



INCRENENT NS CCUNT 

1.1 
TIHING OUNNY 1.1 
RESTORE LOOP 2.2 
MS LOOP EXIT 1.1 
OELAY LOOP 1.1 
EXIT DELAY ROUTINE 



6.6 



5.0 



1.5 
1.5 
3.0 
2.0 
1.5 



9„5 



NS INCREHENT TINES 

-293 

-191 

-355 

-537 

-301 

-198 

-363 

-545 

* LOOP COUNT TO BE EXECUTED 



2.7 



0.9 
0.9 
1.8 
0.9 
0.9 



5.4 



0.6 

1.2 
1.2 
1.5 
1.2 
1.5 

1.8 

0.6 





1.1 


1.5 


0.9 


0.6 


INITIAL SETUP TIME 


25.3 


36,5 


21.5 


14.4 


1 INCRENENT A 
DLE005-»-l EXIT IF POS 
OLEOOO OELAY LOOP 


1.1 
1.1 
1.1 


1.5 
2.0 
1.5 


0.9 
0.9 
0.9 


0.6 
0.6 
0.6 



1.8 



0.6 
0.6 
1.2 
0.6 
0.6 



3.6 



4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 



* 



INITIALIZE 

1. ENABLE INTERRUPT SYSTEN. 

2. CLEAR ERROR/OPERATION FILE AT END OF CALLERS TEST. 

3. SET UP EQUIPMENT ADDRESSES IN CALLERRS ERROR FILE. 
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DATE! 12/17/74 



4904 



»*«*««**«*»******•**»•«*******«**********•******»*************«»******«* 



4906 


0DA5 0000 HSEOOO NUN 


* 


4907 


0OA6 C042 


LDA- 


SETMASK 


4908 


0OA7 0821 


TRA 


N 


4909 


0OA8 0400 


EIN 





4910 


0DA9 G056 


LDA- 


SNHCNT 


4911 


OOAA A07O 


AND- 


HO OOF 


4912 


OOAB 0F42 


ARS 


2 


4913 


OOAC 68C3 


STA* 


TITOOO 


4914 


OOAD 541F 


RTJ- 


CFWAEII 


4919 


OOAE 0C55 


ENQ 


TSOATA-1 


4916 


OOAF 0844 


CLR 


A 


4917 


OOBO 6030 


STA- 


NULL 


4918 


0OB1 6Q2F 


STA- 


IOACT 


4919 


0OB2 6035 


STA- 


ILO 


4920 


0OB3 6307 NSE005 STA- 


ILTtB 


4921 


0OB4 OOFE 


INQ 


-1 


4922 


0085 0171 


SQN 


NSE010-»-l 


4923 


0OB6 18FC 


JNP» 


HSE005 


4924 


0OB7 E091 NSE010 LOQ- 


TSAGTV 


4925 


0OB8 C29B 


LOA- 


TSEQAO-l.Q 


4926 


0OB9 6101 


STA- 


HEST1,I 


4927 


0O8A A81E 


AND» 


HSTOOO 


4926 


008B 6106 


STA- 


HE, I 


4929 


ODBC C102 


LDA- 


HEST2,I 


4930 


OOBO 0100 


SAZ 


MSE015-»-i 


4931 


0O8E A08A 


ANO- 


H007F 


4932 


OOBF B106 


EOR- 


HE, I 


4933 


ODCO 6102 


STA- 


HEST2,I 


4934 


0OC1 C103 


LDA- 


HEST3,I 


4935 


0OG2 0108 


SAZ 


MSE015-»-l 


4936 


0OC3 A08A 


ANO- 


H007F 


4937 


0OC4 B106 


EOR- 


HE, I 


4938 


0OC5 6103 


STA- 


HEST3,I 


4939 


0OC6 C104 


LDA- 


HEST4.I 


4940 


0DC7 0103 


SAZ 


MSE015-»-l 


4941 


0DC8 A08A 


AND- 


H007F 


4942 


Q0C9 8106 


EOR- 


HE,Z 


4943 


OOCA 6104 


STA- 


HEST4,I 


4944 


ODCB C106 MSE015 LOA- 


HE,I 


4945 


OOCC A089 


AND- 


HO 780 


4946 


OOCD 0F47 


ARS 


7 


4947 


OOCE 6117 


STA- 


EQUIPT.I 


4948 


OOCF C106 


LDA- 


HE, I 


4949 


0000 0842 


CLR 


Q 


4950 


0DO1 0FE5 


LLS 


5 


4951 


0002 4116 


STQ- 


CHANNO.I 


4952 


0OD3 0143 


SQZ 


MSE020-»-l 


4953 


0004 0OQ2 


INQ 


2 


4954 


0005 OFEB 


LLS 


11 


4955 


00D6 4105 


STQ- 


HECHST,! 



ENABLE 

PROTECT 

PROCESSOR 
CHECK 1700/1774 FOR HBS CLOCK 
1704 A«0 1774 A»l 
1784-1 A=2 1784-2 A=3 

POSITION CURRENT ERR FILE TO I 

CLEAR OSA RO/HR 
CONTROL 

INT LOCKOUT AND ALL 

TEST OATA 

CELLS 



GET EQUIP NO. 

STATUS 1 EQUIPHENT ADDRESS 
GET HE FIELD 

OOES AN EQUIPMENT STATUS 

2 EXIST 
YES 8UIL0 STATUS 2 

AOORESS 

IS THERE A STATUS 3 
NO-SKIP 
YES FORM THE 
AOORESS 

IS THERE A STATUS 4 
NO-SKIP 
YES FORM THE 
ADDRESS 



EQUIP NO. RIGHT JUSTIFIED 



CHANNEL NUMBER (RIGHT JUSTIFIED) 
SKIP FOR H=0 



CHANNEL EQUIP NO. FOR STATUS 
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OATI 


=1 12/17/7U 


4956 


0007 


1CCD 


MSE020 


JMP» 


(HSEOOO) 




EXIT 


4957 


0008 


FF80 


HSTOOO 


NUM 


$FF80 




H-E FIELD HASK 


4959 






******* ******* ******* *************************************************** 


4960 






* 








* 


4961 






* 




6ET FHA OF 


TEST ' 


ro i ♦ 


4962 






* 








* 


4963 






********************************************** ************************** 


4965 


0009 


0000 


FWEOOO 


NUH 


* 






4966 


OOOA 


4808 




STQ» 


FHAQR 




PTC2 


4967 


ODOB 


E091 


FWE0 05 


LDQ- 


TSACTV 






4968 


OOOC 


E2A5 


FWE010 


LDQ- 


TSIAA0-1,Q 




GET FHA 


4969 


OOOD 


40FF 




STQ- 


I 






4970 


ODOE 


E804 




LOQ» 


FHAQR 




RESTORE Q PTC2 


4971 


OOOF 


003A 




RAO- 


TK32 




UPDATE 32US COUNTER 


4972 


OOEO 


1CF8 




JMP» 


(FHEOOO) 




EXIT 


4973 


0OE1 


OOOO 


FHAAR 


NUH 







SAVE A PTC2 


4974 


0DE2 


0000 


FHAQR 


NUM 







SAVE Q PTC2 


4976 






************************************************************************ 


4977 






* 








* 


4978 






* 




GET FHA OF 


ERROR 


FILE TO !• ♦ 


4979 






» 








* 


4980 






************************************************************************ 


4982 


0OE3 


0000 


POSOOO 


NUH 


* 




LOC RIGHT ERROR BLOCK 


4983 


0OE4 


68FC 




STA* 


FHAAR 




PTC2 


4984 


0OE5 


48FC 




STQ» 


FHAQR 




PTC2 


4985 


0OE6 


E091 


POS005 


LOQ- 


TSACTV 




GET THE POINTER 


4986 


0OE7 


E2A5 




LDQ- 


TSIAAD-i»Q 




GET FHA 


4987 


0OE8 


C20C 




LDA- 


CRLUNO.Q 




CURRENT LOGICAL UNIT NO. 


4988 


0OE9 


0105 




SAZ 


POS010-*-l 




SKIP FOR TEST HITH ONE 


4989 


OOEA 


40FF 




STQ- 


I 




ERROR FILE ONLY 


4990 


ODEB 
OOEC 


2000 
0056 




HUI 


= XTSDATA 




LENGTH OF INFO LIST 


4991 


OOED 


8103 




ADD- 


ERRFLE.I 




NOH HAVE CORRECT REFERENCE 


4992 


OOEE 


1802 




JHP* 


POS020 






4993 


ODEF 


C20B 


POS010 


LDA- 


ERRFLE»Q 




FHA ERROR FILE (FAST METHOD) 


4994 


ODFO 


60FF 


POS020 


STA- 


I 






4995 


0OF1 


C8EF 




LDA» 


FHAAR 




RESTORE REGISTERS PTC2 


4996 


0OF2 


E8EF 




LDQ» 


FHAQR 




PTC2 


4997 


0OF3 


003A 




RAO- 


TK32 




UPOATE 32US CLOCK 


4998 


0OF4 


1CEE 




JMP* 


(POSOOO) 






5000 






************************************************************************ 


5001 






* 








* 


5002 






* 




SET PROTECT 


BITS 


CALL*l=ACORESS * 


5003 






* 








CALL*2=LENGTH ♦ 
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DATE I 12/17/7* 



500* 
5005 



********************************************** 9************9* *********** 



5007 
5008 
5009 
5010 
5011 
5012 
5013 
501* 
5015 
5016 
5017 



0OF5 
0OF6 
0DF7 
OOF 8 
0OF9 
ODFA 
ODFB 
ODFC 
ODFD 
OOFE 
OOFF 



0000 
ECFE 
D8FD 
CCFC 
0600 
09FE 
0O01 
0101 
18FB 
D8F6 
1CF5 



SPEOOO 



SPE010 



SPE0 05 



NUH 


* 


SET PROTECT BITS 


LOQ* 


(SPEOOO) 


GET FIRST WORD 


RAO* 


SPEOOO 


ADDRESS 


LDA* 


(SPEOOO) 


GET LENGTH 


SPB 





BEGIN SETTING 


INA 


-1 


PROTECT 8ITS 


INQ 


1 


FRON 1ST 


SAZ 


SPE005-*-l 


ADDRESS TO 


JHP* 


SPE010 


LAST 


RAO» 


SPEOOO 




JHP* 


(SPEOOO) 


EXIT AT CALL+3 



5019 
5020 
5021 
5022 
5023 
502* 



♦ . * 

♦ CLEAR PROTECT BITS CALL+1=AD0RESS * 
» CALL*2*LENGTH • 

♦ * 
************************************************************************ 



5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
503* 
50 35 
5036 



OEOO 
0E01 
0E02 
0E03 
OEO* 
0E05 
OE06 
0E07 
0E08 
OEO 9 
OEOA 



0000 
ECFE 
D8FD 
CCFC 
0700 
09FE 
0D01 
0101 
18F8 
08F6 
1CF5 



CPEOOO 



CPE010 



CPE 05 



NUH 

LOQ* 

RAO* 

LDA* 

CPB 

INA 

INQ 

SAZ 

JHP* 

RAO* 

JHP* 



(CPEOOO) 

CPEOOO 

(CPEOOO) 



-1 

1 

CPE005-*-! 

CPE010 

CPEOOO 

(CPEOOO) 



CLEAR PROTECT BITS 
GET FIRST HORO 

AODRESS 

GET LENGTH 

BEGIN CLEARING 

PROTECT BITS 

FRON 1ST 

ADDRESS TO 

LAST 

EXIT AT CALL+3 



5038 
5039 
50*0 
50*1 
50*2 
50*3 
50** 
50*5 
50*6 
50*7 
50*8 
50*9 
5050 
5051 
5052 



OEOB 
OEOC 
OEOD 
OEOE 
OEOF 
0E10 
0E11 
0E12 
0E13 
0E14 
0E15 



0000 
08** 
60BF 
C8FC 
6807 
1807 
0000 
0A01 
60BF 
C8FC 
18F9 



ROEOOO 



ROE010 



HREOOO 



NUH 

CLR 

STA- 

LOA* 

STA« 

JHP* 

NUH 

ENA 

STA- 

LDA* 

JHP* 



A 

B* 

ROEOOO 

RHEOOO 

RHEOOO+1 

* 

1 

B* 

HREOOO 

ROE010 



HINI READ ROUTINE 

SET UP READ 

FOR R/H ROUTINE 
GET THE ADDRESS 

OF THE CALLER FOR R/W 
GO TO READ/WRITE 
HINI NRITE ROUTINE 

SET UP FOR 

WRITE 
GET THE AODR OF 

THE CALLER FOR READ/WRITE 



********************* ******************** ******* ************************ 

* * 

* READ/HRITE ROUTINE * 

* * 



60*11400 C 



PAGE 110 



r\ r>> 



* ^ 



r \ 



^ r\ 



r \ r~\ r 



O'O o 0...0 



o c 



""N 



SHH000 



PAGE 111 



OATEl 12/17/74 



5053 



*««*«»«*««»*««**«««*««««**« V *«»*«***»* V»«*«*»««*»«**»9«**«*«* *«*««***«*» 



5055 


0E16 


0000 RHEOOO NUH 


* ■ 




5056 


0E17 


5<i2 6 


RTJ- 


(HPX) 




5057 


0E18 


C030 


LDA- 


NULL 




5058 


0E19 


0101 


SAZ 


RHE005-»-l 




5059 


0E1A 


183F 


JMP» 


RWE010 




5060 


0E1B 


541F RHE0 05 RTJ- 


(FWAEI) 




5061 


0E1C 


E037 


LOQ- 


CALLPT 




5062 


0E1O 


C206 


LDA- 


6, a 




5063 


QE1E 


611 A 


STA- 


XTIME.I 




5064 


0E1F 


0111 


SAN 


RHE011-»-l 




5065 


OE20 


180F 


JMP* 


RHE013 




5066 


0E21 


C07A RHE011 LDA- 


BIT15 




5067 


0E22 


9206 


SUB- 


6»Q 




5068 


0E23 


01B0 


SNO 







5069 


0E24 


6041 


STA- 


I0TM3 




5070 


0E25 


6879 


SIA* 


RHT008 




5071 


0E26 
0E27 


E*»00 
0D7O 


LDQ.+ 


TITOOO 




5072 


0E28 


CA79 


LOA* 


RWTQlltQ 




5073 


0E29 


603F 


STA- 


I0TM1 




5074 


0E2A 


6040 


STA- 


I0TM2 




5075 


0E28 


COOO 


LOA- 







5076 


0E2C 


603E 


STA- 


IOOATA 




5077 


0E2O 
0E2E 


6800 
FDEB 


STA 


I0E155 




5078 


0E2F 


0C02 RHE013 ENQ 


2 




5079 


0E30 


40BC 


STQ- 


Bl 




5080 


0E31 


E037 


LDQ- 


CALLPT 




5081 


0E32 


C205 


LOA- 


5,Q 




5082 


0E33 


A080 


AND- 


HFOOO 




5063 


0E3<* 


0116 


SAN 


RHEQ2i-»-l 




5084 


0E35 


COOO 


LDA- 







5085 


0E36 


0205 


ADC 


RHE170-IOE140- 


-1 


5086 


0E37 
0E38 


6800 
F008 


STA 


IOE1«»0*1 




5087 


0E39 


E85E 


LDQ» 


RHTOQO*1 




5088 


0E3A 


1805 


JMP* 


RWE022 




5089 


0E3B 


E85B RWE021 LOQ* 


RWTOOO 




5090 


0E3C 
0E3O 


<»800 
F0D3 


STQ 


I0E14Q*1 




5091 


0E3E 


EB5A 


LOQ» 


RWT001 




5092 


0E3F 


4400 RHE022 STQ+ 


IOE130 






OEtfO 


OCOE 








5093 


0E41 
0E<»2 


<»400 
0C25 


STQ* 


IOT00<» 




509i» 


0E<»3 


C106 


LDA- 


HE, I 




5095 


0E<»4 


685C 


STA» 


RWT010 




5096 


0E45 


C087 


LDA- 


H7FFF 




5097 


0E<»6 


6856 


STA* 


RWT005 




5098 


0E*i7 


C437 


LOA- 


(CALLPT) 





READ/WRITE ROUTINE •• I/O »» 

LOOK FOR INTS-HOG GET CALLPT 

EXIT AT REJECT 
RETURN IF 

NULL IS SET 
GET 1ST WORD ADDRESS ERR BLOCK 
GET CALL ADDRESS 
SET THE TIME 

IN ERROR MESSAGE 
SKIP FOR TIMER REQUEST 



SET TIME IN 7FFF-T FORM 

MILLISEC MAX 

GET THE CORRECT 1 MS TIMER 

CONSTANT FOR THE 
FAST CLOCK 

ENABLE 

MILLISEC COUNTER 



EXPECT REPLY 



CHECK RESPONSE CONTROL 

AND SET UP REJECT 

REPLY AOORESSES 
SET ERR ON REPLY 

ADDRESS IN I/O 

ROUTINE 

SET CONTINUE ON ERR A DDR 

SET COKTINUE ADOR FOR 

FAST RETURN TO READ/WRITE 

SET REJECT ADDR IN 
I/O EXIT ADORESS 

AND ERROR RTN 

GET HE FIELD 

SET TRANSFER LENGTH 

TO 1 FOR DSA 
A/Q OR DSA DEVICE 
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SMH000 




PAGE 


112 OA 


5099 


0E48 0100 




SAZ 


RHE025-»-l 


5100 


0E49 C037 




LOA- 


CALLPT 


5101 


0E4A E855 




LOQ» 


RHT009 


5102 


0E4B 0700 




CPB 





5103 


0E4C 0822 




TRA 


Q 


510<» 


0E4O 0902 




INA 


2 


5105 


0E4E 6840 




STA» 


RHT004 


5106 


0E4F O02F 




RAO- 


10 ACT 


5107 


0E50 0A01 




ENA 


1 


5108 


0E51 610A 




STA- 


HACT.I 


5109 


0E52 E105 




LDQ- 


HECHSTtI 


5110 


0E53 0141 




SQZ 


RWE024-»-l 


5111 


0E54 484C 




STQ» 


RHT010 


5112 


0E55 1810 


RWE024 


JHP* 


RWE030 


5113 


0E56 C02F 


RHE025 


LOA- 


10 ACT 


5114 


0E57 0103 




SAZ 


RHE0*»5-»-l 


5115 


0E58 6030 




STA- 


NULL 


5116 


0E59 E037 


RHE010 


LDQ- 


CALLPT 


5117 


0E5A 1207 




JMP- 


7,Q 


5118 


0E5B E037 


RHE0 45 


LDQ- 


CALLPT 


5119 


0E5C C202 




LDA- 


2tQ 


5120 


OE50 683E 




STA» 


RHT004 


5121 


0E5E C07A 




LDA- 


BIT15 


5122 


0E5F 9201 




SUB- 


ltQ 


5123 


0E60 01BO 




SNO 





5124 


0E61 6838 




STA» 


RHT005 


5125 


0E62 COBF 




LDA- 


B4 


5126 


0E63 0111 




SAN 


RHE030-»-l 


5127 


0E64 1816 




JMP» 


RHE015 


5128 


0E65 CC36 


RHE0 30 


LOA» 


(RNT004) 


5129 


0E66 5800 
0E67 F092 




RTJ 


IOE100 


5130 


0E6B COOO 




LDA- 





5131 


0E69 0800 




NOP 





5132 


0E6A 683C 




STA* 


RWE075 


5133 


0E6B COOO 




LDA- 





5134 


0E6C CCE8 




VFD 


N8/$CC f X8/HRITE 


5135 


0E6O 66<»5 




STA» 


RWE080 


5136 


0E6E Ckl7 




LDA- 


(CALLPT) 


5137 


0E6F 0107 




SAZ 


RHE035-»-l 


5138 


0E70 COBF 




LOA- 


B«» 


5139 


0E71 0115 




SAN 


RWE035-*-l 


5140 


0E72 0151 




SQN 


RWEOl^-*-! 


51<il 


0E73 1810 




JMP* 


RWE018 


5142 


0E7* F076 


RHE014 


ADQ- 


BIT11 


5143 


0E75 4828 




STQ* 


RHT010 


51«»4 


0E76 1800 




JHP* 


RHE018 


5145 


0E77 COOO 
0E78 5752 


RHE0 35 


LOA 


= AWR 


5146 


0E79 180C 




JMP* 


RWE020 


5147 


0E7A 6C21 


RWE015 


STA* 


CRHT004) 


5148 


0E7B 5800 
0E7C F087 




RTJ 


IOE120 



OATEI 12/17/71* 



SKIP FOR A/Q 
♦•* OSA »»* 

CLEAR PROTECT BIT ON 

I/O INSTRUCTION 
GET ADDRESS OF 

CONTROL WORD 

COUNT NO. OF USERS 

SET OSA ACTIVE FLAG 

DOES USER WANT 17X6 BUFFERED I/O 

NO-SKIP 

YES SET UP FOR WRITE 

♦*♦ A/Q ♦•♦ 

REQUEST BUT 
OSA ACTIVE SET NULL 

AND EXIT 

TO USER AT REJECT RETURN 
GET ADDRESS OF CALLER 
GET FWA OF DATA 

BUFFER 

GET TRANSFER LENGTH 
IN 8000-LENGTH FORM 

DETERMINE REAO OR WRITE 

REQUEST 
JUMP FOR REAO 
WRITE 

SET CA) TO ERR MSG 

OVERLAY 

FOR 

WRITE 
BUILD LOAD A 

INSTRUCTION 

DID OSA CALL WRITE 

NO-SKIP 

YES-IS THIS A WRITE 

YES-SKIP 

SKIP FOR 17X6 



SET UP FOR 17X6 READ 

SET LAST OPERATION IN MSG 



CLEAR 1ST WORD IN READ BUFFER 
SET UP INPUT ROUTINE 
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5149 


0E7D C00O 




LDA- 





BUILD STORE A 




5150 


0E7E 6CF4 




VFO 


N8/S6CX8/READE 


INSTRUCTION 




5151 


0E7F 6827 




STA* 


RHE075 






5152 


0E80 C000 




LDA- 





OVERLAY 




5153 


0E81 0844 




CLR 


A 


FOR 




5154 


0E82 6830 




STA* 


RHE08 


READ 




5155 


0E83 CO00 
QE84 5244 


RHE018 


LOA 


= ARO 


SET LAST OPERATION 




5156 


0E85 6110 


RHE020 


STA- 


LOPER»I 


TO ERR HSG 




5157 


0E86 E037 




LDQ- 


CALLPT 






5158 


0E87 C203 




LDA- 


3,0. 


DOES TRANSFER REQUIRE CONTINUE 




5159 


0E88 0131 




SAN 


RHE050-*-l 


BIT (15) SET ***HINUS=YES 




5160 


0E89 1806 




JHP* 


RHE055 


NO GET EQUIPHENT NUHBER 




5161 


0E8A 680F 


RHE050 


STA* 


RWT002 


SAVE FCA (1ST CHANNEL ADDRESS) 




5162 


0E8O 8204 




ADD- 


4,Q 


CALCULATE LCA (LAST) 




5163 


0E8C 680E 




STA* 


RHT003 


AND SAVE 




516** 


0E8O E80C 




LOQ* 


RHT002 


GET FCA TO Q FOR 1ST TRANSFER 




5165 


0E8E 1805 




JHP* 


RHE070 






5166 


0E8F C205 


RWE055 


LDA- 


5,Q 


GET EQUIPHENT ADDRESS 




5167 


OE90 E08A 




LDQ- 


H0 07F 


ADO ON 




516S 


0E91 08B2 




LAQ 


Q 


DIRECTOR 




5169 


0E92 F80E 




ADQ» 


RHT010 


BITS 




5170 


0E93 C123 


RHE070 


LDA- 


LINSTA.I 


GET OUTPUT HORO 




5171 


0E94 1800 
0E95 FD79 




JMP 


I0E135 


BEGIN I/O TRANSFER 




5172 


0E96 0295 


RWTOOO 


AOC 


RWED75-IOE140-1 


CONTINUE ON REPLY AODRESS 




5173 


0E97 0EA5 




AOC 


RHE065 


CONTINUE ON ERR AODRESS 




5174 


0E98 0EO7 


RHT001 


AOC 


RHE160 


ERROR ADDRESS 




5175 


0E99 0000 


RWT0 02 


NUH 


* 


FIRST CHANNEL ADDRESS 




5176 


0E9A 0000 


RMT003 


NUH 


» 


LAST CHANNEL AODRESS 




5177 


0E9B 0000 


RWT004 


NUH 


* 


FHA DATA BUFFER 




5178 


0E9C 0000 


RWT0 05 


NUH 


* 


DATA LENGTH COUNTER 




5179 


0E9O 1800 


RHT006 


VFO 


N8/$18,X8/INST 


I0E155 INSTRUCTION 




5180 


QE9E 0000 


RHT008 


NUM 


* 


TIHE TO HANG 


. - 


5181 


0E9F OCOF 


RHT009 


AOC 


IOE135 


I/O INSTRUCTION AODRESS 




5182 


OEAO 0000 


RWT010 


NUH 


* 


ME FIELD 




5183 


0EA1 7F9B 


RWT011 


NUH 


S7F9B 


1 HS CONSTANT 9.9US LOOP 1700 


t 


5184 


0EA2 7FB9 




NUH 


$7F89 


1 HS CONSTANT 14.3US LOOP 1774 




5185 


0EA3 7F87 




NUH 


S7F87 


1 HS CONSTANT 8.3US LOOP CR900 




5186 


0EA4 7F5E 




NUH 


S7F5E 


1 HS CONSTANT 6.2US LOOP CR600 




5187 


0EA5 E1Z4 


RHE065 


LDQ- 


LINSTQ.I 


RESTORE (Q.) 




5188 


0EA6 6CF4 


RHE075 


STA* 


(RWT004) 


STORE THE DATA 




5189 




* 






OVERLAY HITH NOP FOR WRITE 




5190 


0EA7 D8F4 




RAO» 


RHT005 


LAST TRANSFER CHECK 




5191 


0EA8 01AC 




SOV 


RWE095-*-l 


YES— EXIT 




5192 


0EA9 08F1 




RAO* 


RWT004 


NO — INCREHENT DATA ADDRESS 




5193 


OEAA C8F3 




LOA* 


RHT008 


REFRESH HILLISEC 




5194 


OEAB 6041 




STA- 


I0TH3 


CO UN TER 




5195 


OEAC 0165 




SQP 


RWEQ80-*-l 






5196 


OEAO C8EC 




LOA* 


RNT003 


CONTINUE BIT IS REQUIRED 




5197 


OEAE OD01 




INQ 


1 


CHECK FOR 




5198 


OEAF 0874 




EAQ 


A 


LAST 




5199 


OEBO 0111 




SAN 


RWE080-*-! 


AODRESS *** 0=LAST 
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5200 


0EB1 


E8E7 




LOQ* 


RHT002 


52 01 


0E82 


CCE8 


RHE0 80 


LOA» 


CRHT004) 


5202 






* 






5203 


0E93 
QEB4 


1800 
FD5A 




JMP 


I0E135 


5204 


0EB5 


CCE5 


RHE095 


LDA» 


(RHT004) 


5205 


UEQ6 


4124 




STQ- 


LINSTQ.I 


5206 


0EB7 


5802 




RTJ* 


RWE200 


5207 


0EB8 


1209 




JHP- 


9»Q 


5208 


0EB9 


0000 


RHE200 


NUH 


* 


5209 


OEBA 


611F 




STA- 


LOPERA,! 


5210 


OEBB 


E124 




LOQ- 


LINSTQ.I 


5211 


OEBC 


4120 




STQ- 


LOPERQ,! 


5212 


OEBD 


EOBC 




LDQ- 


Bl 


5213 


OEBE 
OEBF 


5600 
F06A 




RTJ 


IOE170 


5214 


OECO 


411E 




STQ- 


LOPRSP,I 


5215 


0EC1 


0A01 




ENA 


IORPLY 


5216 


0EC2 
0EC3 


6800 
FD4D 




STA 


IOE140+1 


5217 


0EC4 


C808 




LOA» 


RHT0Q6 


5218 


0EC5 
0EC6 


6800 
FD53 




STA 


I0E155 


5219 


0EC7 


0C05 




ENQ 


5 


5220 


0EC8 


C637 




LDA- 


CCALLPTI.Q 


5221 


QEC9 


0132 




SAM 


RWE202-»-l 


5222 


OECA 
OECB 


5800 
FD05 




RTJ 


IOE050 


5223 


OECC 


C0<*1 


RME202 


LOA- 


I0TM3 


5224 


OECO 


0122 




SAP 


RHE205-»-l 


5225 


OECE 


OAFE 




ENA 


-1 


5226 


OECF 


1803 




JMP» 


RWE210 


5227 


OEOO 


0864 


RHE205 


TCA 


A 


5228 


0EO1 


A087 




AND- 


H7FFF 


5229 


OE02 


611B 


RHE210 


STA- 


TIMERtI 


5230 


0ED3 


E8CB 




LDQ» 


RHT009 


5231 


OE04 


0600 




SPB 





5232 


OE05 


5816 




RTJ» 


RHE220 


5233 


OE06 


1CE2 




JHP* 


CRKE200J 


5231* 


OE07 


EOBC 


RHE160 


LOQ- 


81 


5235 


OE08 


0142 




SQZ 


RHE165-*-l 


5236 


QED9 


410F 




STQ- 


MNTERR.I 


5237 


OEOA 


1803 




JMP» 


RNE172 


5238 


OEDB 


0C02 


RHE165 


ENQ 


2 


5239 


OEOG 


410F 




STQ- 


MNTERR.I 


5240 


OEOO 


580E 


RHE172 


RTJ» 


RWE220 


5241 


OEOE 


E8BC 




LDQ» 


RHT004 


5242 


OEOF 


0102 




SAZ 


RWE173-»-l 


5243 


OEEO 


OOFO 




INQ 


-2 


52i*t* 


0EE1 


1802 




JMP» 


RHE175 


5245 


0EE2 


ODFE 


RHE173 


INQ 


-1 


5246 


0EE3 


C201 


RHE175 


LDA- 


i,Q 


5247 


0EE4 


5804 




RTJ* 


RHE200 



DATE! 12/17/74 



GET FCA AND REPEAT 
GET NEXT WORD FOR WRITE 
OVERLAY WITH CLR A FOR READ 
AND EXECUTE I/O 

6ET LAST DATA VALUE 

(QJ TO ERR MSG FOR CONTINUE RTN 

RESTORE AND EXIT NORNAL 

RETURN NORMAL 
RESTORE ROUTINE 
(A) TO ERR MSG 
IQ) TO ERR MSG 

GET RESPONSE NO. 

SET RESPONSE IN ERR MSG 



REPLACE JUMP LENGTH 



REPLACE JUMP 
INSTRUCTION 



DOES CALLER WANT STATUS 

NO-SKIP 

COPY STATUS 

GET THE CURRENT TIME 
SKIP FOR NO TIME OUT 
MAKE ERR MSG SAME AS 

RINT-MNTRST-FN TIME OUT 
GET ACTUAL 
TIME FOR 

ERR MSG 
SET PROTECT BIT *» HAS CLEARED 

ON I/O CELL *♦ FOR OSA XFER 
CALCULATE OATA LENGTH 
EXIT RESTORE ROUTINE 
GET RESPONSE NUMBER 

SET TIKE ERR IN MSG 

SET RESPONSE ERR IN MSG 

RETURN IA)= OATA LENGTH 



GET LAST OATA TRANSFERED 
A=0 FOR NO REAO 
TRANSFERS 

SET ERR MSG/RESTORE JUMPS 
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5248 
52<»9 
5250 
5251 

5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 



0EE5 
0EE6 
0EE7 
0EE8 
0EE9 
OEEA 
OEEB 
OEEC 
OEED 
OEEE 
OEEF 
OEFO 
0EF1 



1208 
4124 
0C02 
5800 
F040 
18F0 
0000 
C8AE 
E037 
9202 
610B 
6123 
1CF9 
0001 
000O 
7FF4 
7FE8 



RWE170 



RWE220 



H8SENO 



JMP- 
STQ- 
ENQ 
RTJ 

JMP» 

NUM 

LOA» 

LDQ- 

SUB- 

STA- 

STA- 

JHP* 

EQU 

EQU 

EQU 

EQU 



8,Q 

LINSTQ.I 
2 
IOE170 

RHE165 

* 

RHT004 

CAUPT 

2,Q 

DATLGH,! 

LINSTA.I 

(RWE220) 



EXIT AT ERROR RETURN 
CQ) TO ERR MSG 
REPLY RESPONSE NUMBER 
SET RESPONSE IN ERR MSG 

SET RESPONSE ERROR 

CALCULATE 

TRANSFER 

LENGTH 
SET DATA LENGTH IN 

ERROR MESSAGE 
EXIT 



IORPLY!IOE145-IOE140-i> 
INSTCIOE160-IOE155) 
REAOE(RWT004-RHE075> 
WRITE (RWT0 04-RWE080> 



5266 
5267 
5268 
5269 
5270 



********************************************* ***** *************** ******* 

* » 

* PROCESS PROTECT FAULTS • 

* » 
************************************************************************ 



5272 
5273 

5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 

52 83 

52 84 



0EF2 
0EF3 
0EF4 
0EF5 
0EF6 
0EF7 
0EF8 
0EF9 
OEFA 
OEFB 
OEFC 
OEFO 
OEFE 
OEFF 
OF0 
0F01 



C473 
9000 
0C10 
0133 
0108 
09F4 
0136 
C473 
B000 
0B10 
0102 
1400 
0215 
1400 
0223 
0F01 



PFE010 



LDA- 
SUB 



SAM 
SAZ 
INA 
SAH 
PFE015 LDA- 
EOR- 
AOC 
SAZ 
JMP+ 

PFE020 JMP+ 

LASMBS AOC 



(BIT08) 

= XIOE 135*1 

PFE015-»-l 

PFE020-»-l 

IOPF 

PFEQ20-»-l 

(BIT08) 



RIE025+1 

PFE020-*-l 

PF 

XITINT 

* 



CHECK FOR LEGAL I/O 

SKIP ON ERROR 

SKIP OK 

DELTA FROM I/O INST 

SKIP OK 

GET TRAP ADORESS 

CHECK IF PF FROM RETURN 
RIE025 - SKIP IF YES (OK) 
REPORT PROTECT FAULT 

EXIT INT STATE 



5288 
5289 
5290 



«**«******«**«*******«** CONTINUATION INFORMATION ****************** 

»*JUMPX, STOPX, LDSTJP, AQPOSt TTBUSY, NON-INTERRUPT PORTION OF MESSAGE- 
* THESE POUTINES MUST OPERATE ENTIRELY IN RELATIVE MODE BECAUSE OF 
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5291 * MONITOR RELOCATION AND THEIR SUBSEQUENT USE BY MEM0Q2. 

9293 ENO 

PGM= 0F02 ( 3A42) COM = 0000 ( 0) DAT = 0000 ( 0) 
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DATE! 12/17/74 



EQUIVALENCES 



OEF.LINE NAME VALUE 

0000 I 00FF {000255) 



REFERENCED AT LINE NUMBER 



0015 
0016 
0017 
0018 
0019 
0020 

0021 
0022 
0023 
0024 
0025 
0026 
0027 
0029 
0030 
0031 

0032 

0033 



PASSMH 

PASSJ 

PASEQ 

PRELDR 

NAME 

MUXRTA 

TESTEQ 

PT 

CRD 

MT 

OP 

COD 

MT8 

START 

WESTi 

HEST2 

WEST3 

WEST* 



OFOD 
OFOE 
OFDF 
OEAO 
0001 
0005 

0006 
0001 
0002 
0003 
0004 
0005 
0006 
0000 
0001 
0002 

0003 

0004 



(004061) 
(004062) 
(004063) 
(003744) 
(000001) 
(000005) 

(000006) 
(000001) 
(000002) 
(000003) 
(000004) 
(000005) 
(000008) 
(000000) 
(000001) 
(000002) 

(000003) 

(000004) 



0603 

0690 

0967 

1014 

1103 

1533 

1871 

2091 

2167 

2312 

277 8 

3016 

3203 

3637 

3710 

3882 

2769 

2775 

2787 

2848 

0020* 

0021, 

4096, 

1141 



0609, 
0713, 
0985, 
1015, 
1294, 
1555, 
1997, 
2134, 
2168, 
2376, 
2782, 
3021, 
3209, 
3639, 
3718, 
4708, 



1148 

1055, 1144, 1146, 1178, 3860 

4118, 4146 



0617 


, 0632, 


0755 


, 0854, 


0991, 


> 0999, 


1017 


, 1027, 


1387i 


» 1497, 


1570, 


i 1577, 


2020, 


» 2022, 


2153 


, 2155, 


2169 


, 2260, 


2402 


, 2405, 


2783 


, 2845, 


3097, 


> 3125, 


3231, 


, 3239, 


3683, 


, 3697, 


3719 


, 3720, 


4969, 


> 4969, 



0643, 


0689 


0910, 


0924 


1004, 


1009 


1092, 


1095 


1510, 


1528 


1579, 


1582 


2063, 


2080 


2165, 


2166 


2271, 


2279 


2447, 


2449 


2849, 


3010 


3130, 


3135 


3241, 


3256 


3698, 


3709 


3747, 


3762 


4994 





, 28<»3, 2941 



, 3588 

, 0030, 0099 

, 0031, 4053, 4342, 4926 

, 0032, 4111, 4347, 4486, 4524, 4596 

• 4635, 4929, 4933 

, 0033, 4355, 4455, 4603, 4639, 4934 

, 4938 

, 0034, 4361 t 4472, 4609, 4643, 4939 

, 4943 



60411400 C 



PAGE 117 





SMM0OO 




PAGE 118 




OATI 


El 12/1 


17/74 




0034 


WECHST 


0005 


(000005) 1 


, 0035, 
, 4648, 


4368, 
4955, 


4374, 
5109 


4453, 


4470, 


4616 


0035 


HE 


0006 


(000006) , 


, 0036, 


4189, 


4220, 


4232, 


4928, 


4932 










» 4937, 


4942, 


4944, 


4948, 


5094 




0036 


ILT 


0007 


(000007) , 


, 0037, 
, 4920 


3808, 


3817, 


4025, 


4027, 


4134 


0037 


PRGCLK 


0009 


(000009) 


, 0038, 


4748, 


4776 








0038 


HACT 


O00A 


(000010) i 


i 0039, 


4318, 


4321, 


5108 






0039 


OATLGH 


000B 


(000011) , 


f 0040, 


5257 










0040 


TSTNAM 


OOOC 


(000012) , 


, 0041 












0041 


PRGERR 


OOOE 


(000014) 


, 0042 












0042 


MNTERR 


000F 


(000015) 1 


, 0043, 
, 5239 


4254, 


4523, 


4527, 


4551, 


5236 


0043 


ITESYM 


0010 


(000016) 


, 0044 












0044 


IOESYM 


0011 


(000017) t 


► 00 45 












0045 


PRESYM 


0012 


(000018) , 


, 0046 












0046 


AFESYM 


0013 


(000019) , 


, 0047 












0047 


PEESYH 


0014 


(000020) , 


, 0048 












0048 


PFESYM 


0015 


(000021) , 


, 0049 












0049 


CHANNO 


0016 


(000022) i 


, 0050, 


4951 










0050 


EQUIPT 


0017 


(000023) 


, 0051, 


4947 










0051 


STATNO 


0018 


(000024) 


, 0052 












0052 


ITLINS 


0019 


(000025) 


, 0053, 


4033, 


4631 








0053 


XTIHE 


001A 


(000026) 1 


, 0054, 


4073, 


4173, 


4274, 


4660, 


5063 


0054 


TIMER 


001B 


(000027) , 


, 0055, 


4074, 


4091, 


4092, 


4174, 


4243 










, 4244, 


4275, 


4307, 


4308, 


5229 




0055 


STCNTL 


001C 


(000028) , 


, 0056, 


4288, 


4588 








0056 


LOPER 


001O 


(000029) i 


i 0057, 


4166, 


4557, 


5156 






0057 


LOPRSP 


001E 


(000030) , 


, 0058, 


4197, 


4562, 


5214 






0058 


LOPERA 


001F 


(000031) 1 


i 0059, 
, 5209 


4192, 


4224, 


4228, 


4246, 


4567 


0059 


LOPERQ 


0020 


(000032) , 


, 0060, 
, 4247, 


4193, 
4569, 


4218, 
5211 


4223, 


4229, 


4235 


0060 


LINST 


0021 


(000033) , 


► 0061, 


4385, 


4393 








0061 


LINRSP 


0022 


(000034) 1 


, 0062, 


4444 










0062 


LINSTA 


0023 


(000035) 1 


, 0063, 


4383, 


4389, 


4398, 


5170, 


5258 


0063 


LINSTQ 


0024 


(000036) 


i 0064, 
, 5210, 


4414, 
5249 


4418, 


4438, 


5187, 


5205 


0064 


IMR 


0025 


(000037) 1 


, 0065, 


4070, 


4627 








0065 


PREG 


0026 


(000038) 1 


, 0066 












0066 


LINE NO 


0027 


(000039) 


, 0067, 


0096, 


3776, 


3995, 


4075, 


4629 


0067 


EXIMR 


0028 


(000040) 


, 0068 












0068 


ST1RSP 


0029 


(000041) , 


, 0069, 


4346 










0069 


SKIP7 


002A 


(000042) , 


, 0070 












0070 


ST2RSP 


002B 


(000043) • 


, 0071, 


4353 










0071 


SKIP5 


002C 


(000044) • 


• 0072 












0072 


CHRSP 


002O 


(000045) 


, 0073* 


4360, 


4373 








0073 


CHARSP 


002E 


(000046) 


, 0074, 


4366, 


4378 








0074 


SKIP5A 


002F 


(000047) 


, 0075 












0075 


CH3RSP 


0030 


(000048) 1 


, 0076 
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0076 



ST1 



0031 1000049) , 0077, 4296, 4345, 4506, 4509, 4571 





0077 


SKIP8 


0032 


(000050) 


, 0078 










0078 


ST2 


0033 


(000051) 


, 0079, 


4352, 


4494, 


4497, 4599, 4637 




0079 


SKIP4 


0034 


(000052) 


, 0080 










0080 


CHST 


0035 


(000053) 


• 0081, 
, 4618, 


4359, 
4641, 


4372, 

4650 


4464, 4467, 4605 




0081 


CHAOR 


0036 


(000054) 1 


» 0082, 
> 4622, 


4365, 
4645, 


4377, 
4652 


4480, 4483, 4611 




0082 


SKIP4A 


0037 


(000055) 


, 0063 










0083 


CHST3 


0038 


(000056) 


, 0084 










0064 


XST1 


0039 


(000057) 


, 0085, 


4508, 


4594 






0085 


SKIP6 


003A 


(000058) 1 


, 0086 










0086 


XST2 


003B 


(000059) 


, 0087, 


4496, 


4601 






0087 


SKIP2 


003C 


(000060) t 


, 0088 










0088 


XCHST 


0030 


(000061) , 


, 0089, 


4466, 


4607, 


4620 




0089 


XCHAOR 


003E 


(000062) 1 


i 0090, 


4482, 


4613 






0090 


SKIP2A 


003F 


(000063) 


i 0091 










0091 


XCHST3 


0040 


(000064) 1 


, 0092, 


0096 








0092 


CALLP 


0041 


(000065) 


, 0093, 


3848, 


3895, 


4067, 4099, 4116 




0093 


MPXRTN 


0042 


(000066) , 


, 0094, 


3846, 


3893 






0094 


RBIT 


0043 


(000067) , 


, 0095, 


3778, 


3994, 


4068 




0095 


TSCOML 


0044 


(000068) , 


, 0097, 


0098, 


3863, 


3879 




0096 


SDATA 


0019 


(000025) 1 


, 0097, 


0098 








0097 


TSOATA 


0056 


(000086) 


. 4915, 


4990 








0098 


TDATA 


005D 


(000093) 












0099 


ERRFLE 


OOOB 


(000011) 1 


, 0100, 


4991, 


4993 






0100 


CRLUNO 


OOOC 


(000012) 


, 0101, 


4987 








0101 


CRSUNO 


000O 


(000013) 












0110 


NEMPE 


0001 


(000001) , 


, 0741, 


0742 








0111 


PROTEC 


0002 


(000002) , 


, 0741 










0112 


CLRPP 


0003 


(000003) 












0113 


UNREQI 


0004 


(000004) t 


, 0638 










0114 


ILBZY 


0005 


(000005) , 


, 0925 










0116 


DATARE 


0006 


(000006) 1 


, 1725 










0117 


ITIMER 


0007 


(000007) , 


, 4756 










0119 


NOMOCO 


0010 


(000016) 


r 1131, 


1974 








0121 


ILLRBD 


0011 


(000017) , 


, 1857 










0123 


NOXFR 


0012 


(000018) , 


, 1931 










0124 


CKSHER 


0013 


(000019) , 


. 3141, 


3282 








0125 


PTALAR 


0014 


(000020) i 


, 3168 










0126 


CRALAR 


0015 


(000021) , 


, 3267 










0127 


CREOP 


0016 


(000022) 


, 3274 










0128 


MTPE 


0017 


(000023) , 


, 1900, 


2113, 


2121, 


3598, 3664, 3675 




0130 


OPALAR 


0018 


(000024) - 


, 3337 










0132 


CDPALM 


0019 


(000025) , 


, 3458 










0134 


OLLERR 


001A 


(000026) 


, 2712 










0135 


CORHOO 


0020 


(000032) 












0137 


HUTEXC 


0021 


(000033) 












0201 


SHMOOO 


0000 


(000000) 











60411400 C 



PAGE 119 



SMHOOO 



PAGE 120 



DATE* 12/17/74 



0209 

0210 
0212 
0213 
0214 
0215 
0216 

0217 

0218 
0219 
0220 

0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 



CONTRO 0001 fOOOOOl) 



STOP 

REQIT 

FAKE 

JUMP 

GENRDM 

TYPEOU 



HEXASC 
Ol/RLAY 
RELPOS 

MANUAL 

INPTTY 

MONPP 

FN 

MNTRST 

CKST 

RECKST 

ERROR 

CLOCK 



0002 
0004 
0005 
0006 
0007 
0008 



OOOA 
000B 
000C 

O00O 
000E 
O00F 
0010 
0011 
0012 
0013 
0014 
0015 



(000002) 
(00000(f) 
(000005) 
(000006) 
(000007) 
(000008) 



TTYBZY 0009 (000009) 



(000010) 
(000011) 
(000012) 



, 0732* 0734, 1101, 1225, 2204, 3861 

t 4097 

, 0859, 0929, 3041, 4689 

, 4054 

, 0951, 1166, 4548, 4712 

, 4810 

, 0963, 1100, 2726, 2855, 2866, 2983 

, 3027 

, 1888, 2266, 2285, 2300, 2472, 2965 

, 2988, 3091 

, 1934, 2465, 2469, 2964, 3006 

, 2718 

, 0366, 0914, 0918, 1950, 1955, 1962 



(000013) , 1689 

(000014) , 0971, 1090 

(000015) , 0960, 2723 
(000016) 

(000017) 
(000018) 
(000019) 
(000020) 
(000021) , 4071, 4089, 4175, 4241, 4276, 4305 



0230 
0231 
0232 
0233 
0234 
0235 
0236 
0238 
0239 



0240 
0241 
0242 
0243 
0244 



0245 

0246 
0247 
0248 

0249 
0250 
0251 
0252 



RDHDLY 

F1XDLY 

SP8 

CPB 

RO 

HR 

HOG 

FWAI 

FHAEI 



MSINIT 

RINT 

DSELIN 

SELIN 

INTPRC 



INTX 

MPX 
PFRT 

SMERRO 

TYSEL 
ASCHEX 
ASCOEC 
PRGLOA 



0016 
0017 
0018 
0019 
001A 
001B 
001C 
001E 
001F 



0020 
0021 
0022 
0023 
0024 



(000022) 
(000023) 
(000024) 
(000025) 
(000026) 
(000027) 
(000028) 
(000030) 
(000031) 



(000032) 
(000033) 
(000034) 
(000035) 
(000036) 



0025 (000037) 



, 4817 



• 3858, 4095, 4117, 4145 

, 3775, 3844, 3892, 3989, 4020, 4056 

, 4066, 4098, 4133, 4164, 4272, 4516 

, 4532, 4550, 4914, 5060 



, 0734, 2210 

, 0516, 0520, 0524, 0528, 0532, 0536 

, 0540, 0544, 0548, 0552, 0556, 0560 

, 0564, 0568, 0572, 0576 

, 0201, 1085, 1099, 2847, 2899, 2915 



0026 (000038) ,4163, 4271, 4515, 4531, 5056 

0027 (000039) 

0028 (000040) , 0820, 0928, 1029, 1873, 2713, 4757 

0029 (000041) 

002A (000042) , 2391 

0028 (000043) , 2384, 2399, 2453 

002C (000044) , 1128, 1805 
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0253 


ADINST 


0020 


(000045) t 


0254 


INTFLG 


002E 


(000046) t 


0255 


IOACT 


002F 


(000047) , 


0256 


NULL 


0030 


(000048) • 


0257 


HEXHOR 


0031 


(000049) * 


0258 


ASCHD 


0032 


(000050) , 


0260 


H0G2 


003<» 


(000052) , 


0261 


ILO 


0035 


(000053) , 


0262 


AUTOPP 


0036 


(000054) • 


0263 


CALLPT 


0037 


(000055) * 
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0264 
0265 


TKR 
TK16 


0038 
0039 


(000056) 
(000057) 


0266 


TK32 


003A 


(000058) 


0267 


TK64 


003B 


(000059) 


0268 
0269 
0270 
0271 
0272 
0273 
0274 


TK128 

XCOHUS 

IOOATA 

IOTM1 

IOTM2 

I0TM3 

SETHAS 


003C 
0030 
003E 
003F 
0040 
0041 
0042 


(000060) 
(000061) 
(000062) 
(000063) 
(000064) 
(000065) 
(000066) 


0275 
0276 


STJP 
LASTVA 


0043 
0044 


(000067) 
(000068) 


0277 


LASTAO 


0045 


(000069) 


0278 


IN8I1 


0046 


(000070) 



0279 

0280 
0281 



LOLCOR 0047 

LOL1CO 0048 
INFORH 0049 



(000071) 

(000072) 
(000073) 



1044 
3770 
4322 
4326 
1237 
124« 
0657 
3836 
2198 
3790 
4013 
4072 
4176 
4257 
4458 
4854 
5116 

4741 
0665 
4777 
3991 
4356 
4734 
3777 
4732 
4211 
2213 
4433 
4426 
4431 
4429 
1162 

0368 
0365 
2932 
1066 
1832 
1972 
1822 
1954 
2065 
2990 
3022 
3118 
3177 
332 = 
3627 
1957 
2883 
0714 
0944 



3757, 


3758, 


3759 






4764, 


4783 








4324, 


4918, 


5106, 


5113 




4917, 


5057, 


5115 






1256 










1252, 


1253, 


1258 






3753, 


3996, 


4065, 


4152 




3993, 


4035, 


4105, 


4919 




3835, 


3847, 


3896, 


3987, 


3998 


4015, 


4018, 


4022, 


40 38, 


4063 


4079, 


4084, 


4085, 


4100, 


4167 


4190, 


4200, 


4206, 


4216, 


4255 


4273, 


4278, 


4279, 


4284, 


4285 


4474, 


4489, 


4500, 


4502, 


4529 


4883, 


5061, 


5080, 


5098, 


5100 


5118, 


5136, 


5157, 


5220, 


5255 


4744 










4475, 


4729, 


4736, 


4749, 


4753 


4782 










4036, 


4062, 


4076, 


4277, 


4354 


4362, 


4459, 


4488, 


4501, 


4528 


4781, 


4971, 


4997 






4248, 


4301, 


4348, 


4370, 


4728 


4780 










4727, 


4730, 


4779 






5076 










4432, 


5073 








5074 










5069, 


5194, 


5223 






1415, 


2501, 


2756, 


2763, 


4907 


1175, 


1437, 


2776, 


2820 




1065, 


1297, 


2197, 


2838, 


2904 


2979 










1106, 


1119, 


1122, 


1125, 


1126 


1837, 


1865, 


1946, 


1964, 


1967 


1979, 


2001 








1825, 


1854, 


1905, 


1936, 


1944 


1977, 


1999, 


2000, 


2006, 


2023 


2132, 


2913, 


2931, 


2957, 


2963 


2993, 


2995, 


3005, 


3011, 


3017 


30 35, 


3038, 


3100, 


3105, 


3112 


3121, 


3128, 


3137, 


3158, 


3160 


3206, 


3234, 


3261, 


3322, 


3325 


3351, 


3443, 


3446, 


3450, 


3478 


3681 










1960, 


2869, 


2870, 


2872, 


2876 


2891 










2881, 


2882, 


2887, 


2892 




0946, 


1613, 


1677, 


1678, 


1701 
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0282 


LASTOV 


004A 


(000074) 


0283 


OVFHA 


0048 


(000075) 


0311 


JUMPX 


004C 


(000076) 


0315 


HISHX 


0050 


(000080) 


0318 


JUMPO 


0053 


(000083) 


0349 


SMHCNT 


0056 


(000066) 


0351 


EQUIP 


0057 


(000087) 



0352 


JUMP1 


0058 


(000088) 


0353 


JUMP 3 


0059 


(000089) 


0354 


JUMP2 


005A 


(000090) 


0364 


LDSTJP 


0063 


(000099) 


0370 


SMMSJ 


0069 


(000105) 


0379 


BITOO 


006B 


(000107) 


0380 


BIT01 


006C 


(000108) 


0381 


BIT02 


0060 


(000109) 


0382 


BIT03 


006E 


(000110) 


0383 


BIT04 


006F 


(000111) 


0384 


BIT05 


0070 


(000112) 


0385 


BIT06 


0071 


(000113) 


0386 


BIT07 


0072 


(000114) 


0387 


BIT08 


0073 


(000115) 


0386 


BIT09 


0074 


(000116) 


0389 


BIT10 


0075 


(000117) 


0390 


BIT11 


0076 


(008118) 


0391 


BIT12 


0077 


(000119) 


0392 


BIT13 


0078 


(000120) 


0393 


BIT14 


0079 


(000121) 


0394 


BIT15 


007A 


(000122) 


0395 


H0000 


007B 


(000123) 


0396 


HFFFF 


007C 


(000124) 


0397 


H000F 


007O 


(000125) 


0398 


H00FO 


007E 


(000126) 


0399 


HOFOO 


007F 


(000127) 


0400 


HFOOO 


0080 


(000128) 


0401 


HO OFF 


0081 


(000129) 



1702 
2909 
1798 
1823 
0214 
0355 
0316 
0610 
1116 
2231 
2938 
2039 
3146 
3212 
3393 
3560 
0312 
0313 
0317 
035? 
0367 
0600 
3883 
1655 
0673 
2049 
1117 
2640 

095 7 
0611 
0789 
2917 

1910 
163 2 
1685 

1814 
2618 
1811 
1318 
5121 
0415 
1093 

2889 
2572 
4911 
2575 
1940 
2587 
1114 



1742, 


2754t 


2878, 


2879, 


2906 


3784. 


3785 








1826, 

1 A 7lt 


1829, 


1890 






XOOO 

0356, 


0361, 


0362, 


1285 




0870 










0613, 


0737, 


0956, 


1041, 


1080 


1631, 


1651, 


1810, 


1813, 


1909 


2774, 


2861, 


2902, 


2916, 


2936 


2056, 


2085, 


2126, 


2788, 


3093 


3171, 


3183, 


3196, 


3198, 


3205 


3224, 


3289, 


3346, 


3358, 


3380 


3411, 


3467, 


3476, 


3490, 


3511 


3589 










0359, 


1289 








0358, 


1388 








0319 










0369, 


0371, 


1627 







0614, 1978, 2458, 2903, 2937 
4006, 4052, 4300 
2685, 2808, 3642 

2288, 4686 
2097, 3517 



3545 

0716, 0718, 0724, 0726, 0745 

1124, 2072, 2239, 2790, 2800 

3292, 3414, 4547, 5272, 5278 

2284 

2045, 2105, 3654 

2753, 4221, 4233, 4375, 5142 

2871, 2885, 3369 

3094 

3613 

1966, 3638, 3768, 3864, 5066 

0593, 0747, 0752, 0754, 1030 

1096, 1179, 4120, 4147, 4298 

3296, 3418 

2755, 3522, 3810, 3814, 4136 



2581 

2877, 2939, 3361, 5082 

1120, 1193, 1933, 3262, 3550 
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0402 


HFFOO 


0082 


(000130) , 


, 0945, 
► 3537, 


0972, 
3552, 


0976, 
4676 


1021, 


1123, 


2996 


0403 


HFFFO 


0083 


(000131) 


► 2751, 


3590 










0404 


HOFFF 


0084 


(000132) 














0405 


HFFOF 


0085 


(000133) 














0406 


HFOFF 


0066 


(000134) 














0407 


H7FFF 


0087 


(000135) 


• 0651, 
f 4172. 


0717, 
4770, 


1251, 
5096, 


1958, 
5228 


2875, 


3798 


0408 


H7F0 


0088 


(000136) 


. 2214, 


2611, 


2639 








0409 


H0780 


0089 


(000137) 


► 4945 












0410 


H007F 


008A 


(000138) 


, 2541, 
► 4941, 


2617, 
5167 


2628, 


4188, 


4931, 


4936 


0411 


H2020 


008B 


(000139) 


, 3012 












0412 


C108 


008C 


(000140) 














0413 


HFEFD 


008D 


(000141) , 


, 0594 












0414 


HOEOO 


008E 


(000142) , 


, 0645 












0415 


ZERO 


007B 


(000123) 














0426 


TSSEL 


008F 


(000143) 1 


► 0954, 
, 1216 


0965, 


0980, 


0982, 


1075, 


1214 


0427 


TS1NIT 


0090 


(000144) 


• 0966, 


1051, 


1076, 


1102, 


1110, 


1129 










, 1138, 


1169, 


1217, 


1220, 


1966 




0428 


TSACTV 


0091 


(000145) , 


, 0909, 


0926, 


1057, 


1079, 


1151, 


1168 










. 1171, 


1172, 


1173, 


1189, 


1197, 


1303 










i 1794, 


1835, 


2237, 


3771, 


3774, 


3781 










, 4043, 


4142, 


4674, 


4924, 


4967, 


4985 


0430 


TSFREQ 


0092 


(000146) , 


, 0969, 


0977, 


0993, 


1020, 


1023, 


1107 










, 1190, 


1192, 


1200, 


1202, 


1207, 


1208 










r 1443, 


1795, 


4675 








0441 


TSEQAD 


009C 


(000156) , 


, 0970, 
, 1206, 


0979, 
1211, 


1137, 
4925 


1200, 


1202, 


1205 


0452 


TSIAAD 


00A6 


(000166) i 


0911, 


0916, 


0927, 


0968, 


0974, 


1054 










. 1104, 


1127, 


1134, 


1139, 


1176, 


1203 










► 12 04, 


1212, 


1836, 


1969, 


4968, 


4986 


0463 


TSTJP 


OOBO 


(000176) 1 


• 1174, 
, 2238 


1198, 


1199, 


1213, 


1312, 


1453 


0473 


HSTJP 


OOBA 


(000186) 1 


, 0370, 
, 2813, 


1314, 
2816 


2779, 


2781, 


2786, 


2789 


0475 


BO 


OOBB 


(000187) 


, 0887, 


0902, 


1945, 


1984, 


1998, 


2004 










20 05, 


2016, 


2025, 


2066, 


2079, 


2133 










t 2138, 


2140, 


2141, 


2144, 


2145, 


2147 










t 2148, 


2150, 


2151, 


2157, 


2158, 


2160 










> 2161, 


2163, 


2164, 


2172, 


3236, 


3240 










r 3242, 


3245, 


3246, 


3249, 


3251, 


3252 










, 3253, 


3254, 


3255, 


3311, 


3352, 


3355 










► 3357, 


3365, 


3433, 


3473, 


3629, 


3631 










, 3632, 


3633, 


3635, 


3645, 


3682, 


3688 










» 3690, 


3691, 


3693, 


3694, 


3700, 


3701 










, 3703, 


3704, 


3706, 


3707, 


3712, 


3713 










> 3715, 


3716, 


3723 








0476 


Bl 


OOBC 


(000168) 1 


, 1033, 


1037, 


1038, 


1115, 


1797, 


1800 



o o 



o 
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, 1850i 


1896, 


1912, 


1919, 


1939, 


1971 










. 2057, 


2935, 


3294, 


3416, 


3620, 


3820 










, 4050, 


4178, 


4187, 


4198, 


4290, 


4297 










, 4442, 


5079, 


5212, 


5234 






0477 


B2 


00BO 


(000189) , 


, 0897, 


0908, 


0912, 


0921, 


1840, 


1847 










, 1980, 


, 2002, 


2011, 


2015, 


2059, 


2136 










, 2170, 


2958, 


3237, 


3277, 


3622, 


3685 










, 3721, 


4029, 


4032, 


4046, 


4046, 


4199 










> 420 9, 


4294, 


4299 








0478 


B3 


OOBE 


(000190) , 


» 1801, 


1855, 


1859, 


1868, 


1891, 


1898 










► 2114, 


2952, 


3028, 


3169, 


3232, 


3269 










, 3283, 


3338, 


3459, 


3599, 


3665, 


4282 










, 4303, 


4561, 


4565, 


4755, 


4758 




0479 


B4 


OOBF 


(000191) , 


, 1765, 


1772, 


1858, 


1872, 


1892, 


2112 










t 2953, 


3031, 


3170, 


3221, 


3223, 


3266 










, 3273, 


3335, 


3375, 


3456, 


3482, 


3597 










• 3667, 


4317, 


4327, 


5040, 


5046, 


5125 










, 5138 












0480 


B5 


OOCO 


(000192) , 


i 1764, 
, 3793, 


1834, 
3797, 


1863, 
3811, 


1949, 
3815 


1953, 


1961 


0481 


86 


OOCi 


(000193) , 


i 1761, 


1775, 


1776, 


1856, 


1870, 


1893 










> 1973, 


2110, 


2115, 


2954, 


3033, 


3316 










, 3317, 


3438, 


3439, 


3663, 


3668, 


3792 










, 3796 












0482 


B7 


00C2 


(000194) i 


► 1759, 


1773, 


1774, 


1842, 


1867, 


1874 










, 1894, 


1902, 


2122, 


2955, 


3600, 


3676 


0483 


MSTOP 


O0C3 


(000195) , 


► 0318 












0484 


ISER 


00C4 


(000196) 














0485 


TTOTTI 


00C5 


(000197) 1 


i 1088, 


2268 










0486 


RROFLG 


O0C6 


(000198) i 


> 2948, 


3333, 


3454 








0495 


COMUSE 


OOCA 


(000202) , 


, 0269, 


2514, 


2519, 


2523, 


2525, 


2526 










, 2530, 


2532, 


2536, 


2563, 


2571, 


2573 










2574, 


2578, 


2579, 


2580, 


2584, 


2585 










, 2586, 


, 2590, 


3736 








0503 


02 


00D2 


(000210) , 


, 1050 












0505 


TEMPLO 


0004 


(000212) , 


, 1601, 


1606 










0507 


STOPBF 


O0E1 


(000225) , 


, 1405, 
> 1578, 


1527, 
1581, 


1554, 
2895 


1559, 


1571, 


1576 


0508 


PRLFLG 


O0E2 


(000226) 














0509 


TEMPTS 


O0E3 


(000 227) 














0510 


CHAR1 


00E4 


(000228) 














0511 


CHAR2 


00E5 


(000229) 














0515 


LEVO 


0100 


(000256) , 


, 0649 












0518 


LVOADR 


0103 


(000259) , 


> 0896, 


4004 










0519 


LEVI 


0104 


(000 260) 














0522 


LV1A0R 


0107 


(000263) 














0523 


LEV2 


0108 


(000264) 














0526 


LV2A0R 


010B 


(000267) 














0527 


LEV3 


010C 


(000268) 














0530 


LV3A0R 


010F 


(000271) 














0531 


LEV4 


0110 


(000272) 














0534 


LV4A0R 


0113 


(000275) 
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0535 
0538 
0539 
0542 
0543 
0546 
0547 
0550 
0551 
0554 
0555 
0558 
0559 
0562 
0563 
0566 
0567 
.0570 
0571 
0574 
0575 
0578 
0586 

0588 
0589 

t)617 
0624 
0625 
0640 

0642 
0644 
0649 
0654 
0660 
0662 
0667 
0668 
0670 
0679 
0687 
0688 
0690 
0693 
0699 
0713 
0720 
0722 
0724 
0737 
0741 



LEV5 

LV5ADR 

LEV6 

LV6A0R 

LEV7 

LV7ADR 

LEV8 

LV8ADR 

LEV9 

LV9ADR 

LEV10 

LV10A0 

LEV11 

LV11A0 

LEV12 

LV12A0 

LEV13 

LV13A0 

LEV14 

LV14AD 

LEVI 5 

LV15A0 

REG 

AXREPT 
PROCES 

PROC 
PROC1 
PR0C2 
QTEMP 

PROCD 

EXITL 

XLEV02 

CHKMBS 

EXIT 03 

EX IT 05 

EXLEV 

INTON1 

PROC 3 

PR0C4 

PR0C5 

PR0C5A 

PR0C6 

SLSPIO 

SLSPAO 

CHPEPF 

CKPE 

CKPF 

PFEOOO 

PFE005 

PF 



0114 
0117 
0118 
0118 
011C 
011F 
0120 
0123 
0124 
0127 
0128 
0128 
012C 
012F 
0130 
0133 
0134 
0137 
0138 
013B 
013C 
013F 
0140 

0180 
0181 

019E 
01A5 
01A6 
01B6 

0187 
01B9 
01BE 
01C3 
01C9 
01CC 
01O4 
0105 
0107 
01E0 
01E9 
01EA 
01EC 
01EE 
01F2 
01F7 
01FE 
0200 
0202 
0210 
0215 



(000276) 
(000279) 
(000280) 
(000283) 
(000284) 
(000287) 
(000288) 
(000291) 
(000292) 
(000295) 
(000296) 
(000299) 
(000300) 
(000303) 
(000304) 
(000307) 
(000308) 
(000311) 
(000312) 
(000315) 
(000316) 
(000319) 
(000320) 

(000384) 
(000385) 

(000414) 
(000421) 
(000422) 
(000438) 

(000439) 
(000441) 
(000446) 
(000451) 
(000457) 
(000460) 
(000468) 
(000469) 
(000471) 
(000480) 
(000489) 
(000490) 
(000492) 
(000494) 
(000498) 
(000503) 
(000510) 
(000512) 
(00051<t) 
(000528) 
(000533) 



0501, 0596, 0598. 0604 v 0606* 0630 

0660, 0662, 0664, 0666, 3886 

0627, 0639 

0244, 0591, 0607, 0608, 0654, 3890 

0612, 0615, 3891 

0621 

0595, 0619* 0622, 0691* 3887 

0590, 0605, 0669, 0675, 0676, 0681 

0626 

0631, 0756, 3765, 4144 

0653 

0650 

0658 

0656, 0659 

0647 

0624 

0678 

0674 

0684 

0682, 0686 

0677 

0670, 0680, 0901 

0685, 0688, 0907, 1046 

0623 

0715 

0720 

0722 

0733, 0735 

0739, 5282 
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DATE I 12/17/74 



0742 PE 0216 (000534) , 0721 

07i»7 PHR 021B C000539) t 0723 

0752 PFR 0220 (000544) v 0247 

0755 XITINT 0223 (000547) t 0736* 0744, 0768. 0814* 0816, 5283 

0759 ISERR 0225 (000549) , 0484, 0766, 0770, 0771 

0770 ISERR1 022E (000558) , 0764 

0776 ISERR2 0233 (000563) ♦ 0772, 0774 

0777 ISERRQ 0234 (000564) , 0762, 0765 

0779 BUSY 0235 (000565) ,0763, 0796, 0797, 0805 

0783 RPTOO 0237 (000567) , 0787 

0788 RPT01 023C (000572) , 0785 

0790 RPT02 023E (000574) , 0794 

0795 RPT02A 0243 (000579) , 0791 

0796 RPT02B 0244 (000580) , 0784 

0797 RPT02C 0245 (000581) , 0792 

0800 REPORT 0246 (000582) , 0588, 0743, 0746, 0821, 1727, 2495 



0809 
0614 
0816 
0818 
0823 
0825 
0826 
0827 
0828 
0829 
0830 
0831 
0832 
833 
0834 
0835 
0836 
0837 
0838 
0846 



RPT04 

RPT05 

RPT06 

RPT10 

RPTRTN 

RTNSHR 

RTNSTP 

RTNHSG 

FLGSMR 

FLGSTP 

FLGHSG 

A0R1 

ADR2 

A0R3 

AOR4 

ADR5 

A0R6 

ENTA 

ENTQ 

SMMERR 



024C 
0252 
0253 
0256 
025B 
025C 
0250 
025E 
025F 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
268 
0269 
026A 



(000588) 

(000594) 

(000595) , 0806 

(000598) , 0812, 2500 

(000603) , 0811, 0817, 2499 

(000604) 

(000605) 

(000606) , 0809 

(000607) , 0847, 0866, 0948, 2490 

(000608) , 094?, 1284, 1390 

(000609) , 0783, 0950, 1600, 1610, 1680 
(000610) 

(000611) 
(000612) 
(000613) 
(000614) 

(000615) , 0790 

(000616) , 0803, 0818 

(000617) , 0804, 0819 

(000618) , 0248, 0825, 0831, 0832, 0849, 0867 



0857 SMER1 0275 (000629) , 0852 

0861 SMERID 0279 (000633) , 0857 

0862 SMERCO 027A (000634) , 0848 

0863 SMERRT 027B (000635) , 0850 

0864 SMERQ 027C (000636) , 0853, 0855 

0867 ENDSMR 027F (000639) , 0832, 0833, 0860 

0869 MAINL 0280 (000640) , 0221, 0871 

0873 FCLRIN 0283 (000643) , 0213, 0874 

0886 REQINT 0285 (000645) , 0212, 0920, 0922, 0923 

0887 REQIN2 0286 (000646) 

0889 REQIN3 0288 (000648) , 0892 

0893 REQIN4 028C (000652) , 0889 

0896 XLVOAO 028F (000655) , 1035 

0901 REQIN5 0294 (000660) , 0906 
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OATEl 12/17/74 


0907 


REQIN6 


029B 


(000667) , 


> 0903 






0909 


REQIN7 


029E 


(000670) , 


, 0899. 


0904 




0920 


REQIN8 


02A9 


(000681) 


► 0913* 


0917 




0924 


REQIN9 


02AO 


(000685) 


> 0915* 


0919 




0944 


MCINIT 


02B4 


(000692) j 


, 1098. 


2914 




0947 


BUILDT 


02B7 


(000695) 








0956 


SHSTAR 


02C0 


(000704) , 


» 2727. 


2920 




0960 


TSLIS1 


02C4 


(000708) 


» 0955. 


0958, 


1223 


0968 


CLRIA 


02CO 


(000717) , 


, 0986 






0969 


TSLIS2 


02CE 


(000718) . 


, 0975 






0972 


TSLIS3 


0201 


(000721) 








0976 


TSLIS4 


02D5 


(000725) 1 


> 0973 






0980 


INITAC 


0209 


(000729) 








0990 


INITA 


02E0 


(000736) 


, 0959. 


0978. 


0983, 1223. 1224 


0993 


INITA1 


02E3 


(000739) 


, 1019 






1020 


INITA2 


02FE 


(000766) 


i 0996. 


1003, 


1008, 1013 


1031 


INITA3 


0309 


(000777) , 


, 1018 






1034 


INZTAA 


030C 


(000780) , 


, 1040 






1046 


INITAB 


0319 


(000793) t 


, 1049 






1053 


TRANSF 


0321 


(000801) , 


, 1059 






1060 


IXT1 


0328 


(000808) , 


, 1058 






1065 


EXECTL 


0329 


(000809) 1 


> 1052 






1075 


INIT1 


032B 


(000811) , 


i 1152 






1079 


INIT1A 


032F 


(000815) i 


> 1077, 


1113, 


1135, 1150 


1090 


INIT1D 


033O 


(000829) 


» 1097 






1098 


INITIO 


0345 


(000837) < 


, 1060 






1100 


I NIT IB 


0348 


(000840) 


r 1083, 


1091 




1102 


INIT2 


034A 


(000842) , 


, 1078 






1104 


INIT4 


034C 


(000844) 








1107 


INIT4D 


034F 


(000847) 


t 1105 






1113 


INIT4E 


0355 


(000853) , 


, 1111 






1114 


TNITF 


0356 


(000854) • 


, 1109 






1116 


INITC 


0358 


(000856) 








1126 


TNITD 


0362 


(000866) , 


, 1118, 


1121 




1136 


INIT9A 


036C 


(000876) 


, 1132. 


1133 




1137 


INITB 


036O 


(000877) , 


, 1130 






1147 


BIASED 


0378 


(000888) i 


, 1143 






1151 


INIT5 


037C 


(000892) t 


, 1149 






1161 


CONTRO 


037E 


(000894) , 


► 0209 






1168 


C0NTR7 


0385 


(000901) 








1172 


C0NTR1 


0389 


(000905) i 


, 1170 






1173 


C0NTR3 


038A 


(000906) 








1188 


EXIT 


0391 


(000913) , 


> 0211, 


1195 




1196 


EXITS 


0399 


(000921) 1 


, 1194 






1198 


EXITC 


039B 


(000923) , 


, 1112, 


1136, 


1210 


1211 


EXITO 


03A8 


(000936) , 


1201 






1224 


EXITG 


03B5 


(000949) , 


1222 






1225 


EE 


03B7 


(000951) , 


1221 






1233 


CONASC 


03B8 


(000952) , 


0218, 


1259, 


1567 


1236 


CONVOO 


03BB 


(000955) i 


1257 






1244 


CONV01 


03C3 


(000963) 1 


1241 






1251 


CONV02 


03CA 


(000970) , 


1247 






1255 


CONV03 


03CE 


(000974) i 


, 1250 
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DATI 


Ll 12/! 


L7/74 




1258 


ENOCNV 


0301 


(0009771 , 


, 1254 












1260 


CONV04 


0303 


(000979) i 


> 1235, 


1245, 


1255 








1268 


AQPOS 


03D4 


(000980) , 


► 0220, 


1276, 


1302 








1273 


RP1 


03O9 


(000985) i 


, 1269 












1274 


RP2 


03OA 


(000986) i 


> 1270 












1276 


RP3 


030C 


(000988) 


, 1272, 


1273 










1283 


PRESTP 


03OO 


(000989) , 


, 0210, 


0833, 


0834, 


1287 






1292 


STOPX 


03E8 


(001000) 


, 0483, 
, 1328, 


0826, 
1331, 


1288, 
1391 


1290, 


1298, 


1306 


1309 


STOPX1 


03FO 


(001021) , 


, 1304, 


1307 










1319 


ST0PX2 


040A 


(001034) i 


, 1317 












1320 


ST0PX3 


040B 


(001035) . 


, 1315 












1331 


ST0PX4 


0417 


(001047) , 


, 1327 












1332 


ST0PX5 


0418 


(001048) i 


, 1330 












13*0 


ST0PX6 


0420 


(001056) , 


, 1336 












1353 


CKIO 


0420 


(001069) 














1363 


ID48 


0437 


(001079) 1 


, 1355 












1364 


102 


0438 


(001080) , 


, 1362 












1365 


IDi 


0439 


(001081) , 


, 1358, 


1360 










1374 


CKSJ48 


0443 


(001091) 1 


. 1359, 


1363 










1380 


SKPXTT 


044A 


(001098) , 


, 1366 












1382 


NEHSJ 


044C 


(001100) , 


> 1428 












1386 


STPEXI 


0450 


(001104) , 


, 1373, 


1377, 


1380, 


1384, 


1609 




1391 


ENOSTP 


0457 


(001111) 1 


► 0834, 


0835 










1393 


USRPNT 


0458 


(001112) 1 


, 1309, 


1435 










1394 


OMITTO 


0459 


(001113) i 


, 1343, 


1351, 


1499 








1395 


MTSTJP 


045A 


(001114) , 


, 1323, 


1341, 


1356, 


1376 






1396 


ISAVE 


045B 


(001115) , 


, 1295, 


1386 










1397 


XSAVE 


045C 


(001116) 1 


, 1299, 
. 1467, 


1301, 
1468 


1324, 


1459, 


1464, 


1465 


1399 


ID 


045E 


(001118) i 


, 1340, 


1354, 


1375, 


1417, 


1513, 


1522 


1400 


SJX 


045F 


(001119) 1 


, 1313, 


1325, 


1383, 


1418, 


1441 , 


1450 


1401 


RTA 


0460 


(001120) , 


, 1332, 


1460 










1402 


BIAS 


0461 


(001121) 


i 1296, 


1329, 


1337, 


1456, 


1494 




1404 


AQTTY 


0462 


(001122) 1 


, 1365, 


1379, 


1500 








1412 


AQ1 


046A 


(001130) 














1417 


AQ1A 


0470 


(001136) • 


, 1414 












1424 


CKIONH 


0477 


(001143) 


, 1444 












1427 


IDSAVE 


047B 


(001147) 


, 1439, 


1445 










1431 


STOPCN 


047E 


(001150) t 


, 1347, 
, 1541, 


1369, 
1548 


1406, 


1407, 


1492* 


1529 


1432 


NEGCNT 


Q47F 


(001151) ■ 


, 1349, 
, 1542, 


1371, 
1546 


1488, 


1490, 


1531, 


1538 


1433 


AQCNT 


0480 


(001152) , 


, 1350, 


1364, 


1372, 


1478, 


1489 




1435 


SINGLE 


0481 


(001153) , 


, 1429 












1437 


SJPARA 


0483 


(001155) 














1443 


SCANIO 


048A 


(001162) 


, 1449 












1450 


SCAN2 


0492 


(001170) 


• 1446 












1452 


SCAN4 


0494 


(001172) , 


, 1438, 


1440, 


1451 








1454 


NEHMAS 


0497 


(001175) 


, 1447 












1456 


AQ2 


0499 


(001177) 
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DAT! 


:» 12/17/7* 


1*63 


PARDAT 


0*A0 


(00118*) 1 


, 1*57, 


1*73 








1*69 


PD1 


0*A6 


(001190) , 


, 1*62 










1*76 


CKAQ 


0*AB 


(001195) , 


i 1*19, 


1*61, 


1*66* 


1*82, 


1*85 


1*81 


CKAQA 


0*B0 


(001200) , 


» 1*77, 


1*83 








1*83 


AQSTP 


0*B2 


(001202) i 


» 1*79 










1*85 


RTAQ 


0*B5 


(001205) 












1*87 


CKCOUN 


0*86 


(001206) , 


, 1*58, 


1*63, 


1*98 






1*99 


ENOAQ 


0*C2 


(001218) , 


, 1*91 










1502 


8FR1 


0«»C* 


(001220) 


, 1*08, 


1*20, 


1*21, 


1*22, 


1*23, 1*69 










, 1*70, 


1*71, 


1*72, 


1512, 


1558, 1565 










, 1566 










1503 


BFR2 


0*C5 


(001221) i 


, 1*09, 


1511 








150* 


BFR8*L 


0*C6 


(001222) , 


, 1557, 


1561, 


156* 






1505 


LASTID 


0*C7 


(001223) , 


, 151*, 


1517, 


1520, 


1523 




1506 


S7FFF 


0*C8 


(00122*) 


, 1*10, 


1*11 








1508 


STPTYP 


0*C9 


(001225) , 


, 1367, 


1385, 


1573 






1525 


JTYPL 


0*08 


(0012*3) , 


, 1516 










1526 


TYPAQX 


0*OC 


(0012**) , 


, 152* 










1532 


AQX 


0*E2 


(001250) 1 


, 1551 










1539 


AQX1 


0*E9 


(001257) , 


r 1536 










15*0 


S2020 


0*EA 


(001258) , 


r 153*, 


1580 








1552 


TYPLIN 


0<iF6 


(001270) 


t 1525, 


15*7, 


1550, 


1563 




1553 


S800A 


0*F7 


(001271) , 


, 1526 










1558 


DATA 


0<tFC 


(001276) , 


, 1569 










156* 


OATA1 


0502 


(001282) , 


, 1562 










1570 


END3FR 


0509 


(001289) , 


, 1560 










1575 


BL08FR 


05 00 


(001293) , 


, 15*5, 


1568, 


1583 






1599 


TTYPE 


0516 


(001302) , 


, 0*85, 
t 2350, 


1602, 
2*75 


1605, 


1611, 


163*, 2305 


1609 


HESSAG 


0522 


(00131*) 1 


, 0216, 
, 1603, 


0827, 
1626, 


0835, 
1681 


0836, 


1519, 1572 


1612 


HESSA0 


0526 


(001318) t 


, 160 7 










162* 


NOTFOR 


053* 


(001332) , 


, 1622 










1637 


NOTFM1 


0545 


(0013*9) , 


, 1633, 


1635 








1650 


MESSO 


0553 


(001363) 1 


, 16*7 










1665 


MESSA1 


0563 


(001379) , 


, 1653, 


1656 








1666 


MESSA2 


056* 


(001360) , 


, 1650, 


1675 








1676 


HESSA3 


056E 


(001390) i 


, 108*, 


1630, 


2608 






1679 


MESSA* 


0573 


(001395) 1 


, 1663 










1681 


ENOHES 


0576 


(001398) , 


, 0836 










1682 


MESSIN 


0577 


(001399) 


, 0703, 


1720 








1683 


MESS1C 


0578 


(001*00) 












1691 


MESS1A 


0580 


(001*08) 


► 1686 










1697 


MESS3 


058* 


(001*12) 


, 1728 










170* 


MESS1B 


058B 


(001*19) 


, 1692 










1711 


HESS1 


0592 


(001*26) i 


, 1706 










1715 


MESS2 


0596 


(001*30) 1 


, 1710 










1718 


MESS2A 


0599 


(001*33) , 


, 1690, 


1703 








1723 


HESS* 


0590 


(001*37) i 


, 168*, 


1709, 


1712 






1727 


XREPOR 


05A1 


(001**1) 


► 1723, 


172* 








1729 


INTACT 


05A3 


(001**3) 


, 068 3, 


1659, 


1699 






1730 


MESS6 


05A<» 


(001***) ., 


i 1658, 


1705, 


1715, 


1717 




1731 


AOOR 


05A5 


(001**5) 


, 161i», 


1621, 


16*6, 


1666, 


1672, 1707 
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OATJ 


11 12/17/74 










> 1711, 


1713, 


2605, 


2609, 2645 


1732 


CNTNUM 


Q5A6 


{001446) 1 


► 1625* 
, 2646 


1671, 


1673, 


1691, 1714, 2644 


1733 


MESS 


05A7 


1001447) 1 


, 1637, 


1683 






173** 


H800A 


05A8 


(001448) , 


, 1648 








1735 


TTYMSG 


05A9 


(001449) 1 


, 1620, 


2649 






1739 


TTBUSY 


05AA 


(001450) 


» 0217, 
( 2227 


1293, 


1378, 


1612, 1744, 1746 


1747 


TVBZYA 


05B3 


(001459) , 


, 1740, 


1745 






1758 


GENRAN 


05B4 


(001460) i 


t 0215, 


1778 






1762 


GENMOR 


05S8 


(001464) 1 


, 1781 








1772 


STMORE 


05C2 


(001474) , 


, 1782 








1779 


GEN1 


05C9 


(001481) , 


, 1777 








1783 


R 


05CD 


(001485) i 


, 1763, 


1770 






1784 


Rl 


05CE 


(001486) , 


, 1762, 


1768 






1793 


OVERLA 


05CF 


(001487) 1 


- 0219, 


1807, 


1808 




1805 


OVRLA1 


05OC 


(001500) i 


» 1799, 


1802 






1608 


OVRLOl 


05DF 


(001503) , 


r 1806 








1809 


LORCHK 


05E0 


(001504) t 


. 1942 








1817 


LOAONX 


05E9 


(001513) t 


> 1812, 


1819 






1818 


CDDSK 


05EA 


(001514) , 


, 1815 








1821 


V 0VR8LK 


05EO 


(001517) i 


> 1926 








1829 


OVRBL1 


05F5 


(001525) i 


i 1827 








1832 


0VRBL2 


05F8 


(001528) 


, 1804, 


1830 






1845 


TSTCLR 


0604 


(0015MJ) , 


f 1649, 


1985 






1850 


TSTFNO 


0609 


(001545) , 


, 1843 








1853 


ILL3LK 


060B 


(001547) 


» 1925, 


1926 






1858 


STB7B3 


0610 


(001552) 1 


> 1932, 


1975 






1862 


XFRBLK 


0613 


(001555) 1 


, 1828, 


1853, 


1927 




1868 


CKFLAG 


0619 


(001561) 1 


> 1851, 


I860, 


1904, 


1924 


1874 


CKTFLG 


061F 


(001567) i 


> 1869 








1887 


LDCONT 


0622 


(001570) i 


, 0252, 


1803, 


1876 




1888 


LOADRB 


0623 


(001571) 


t 1817, 

, 1995 


1831, 


1862, 


1875, 1921, 1938 


1897 


LDRBD1 


062C 


(001580) 










1904 


LDRB02 


0633 


(001587) , 


• 1901, 


2014 






1905 


LORBD3 


0634 


(001588) i 


. 1897, 


1899, 


1903 




1907 


HEXCOR 


0636 


(001590) 


, 1914 








1914 


NOTHCB 


063O 


(001597) , 


► 1908 








1921 


RBOTAB 


0644 


(001604) , 


► 1911, 


1918, 


1920 




1929 


MAMBLK 


064C 


(001612) i 


, 1922 








1933 


NAMCOM 


0650 


(001616) t 


, 1929 








1938 


JMPLOR 


0655 


(001621) 










1943 


CORCHK 


065A 


(001626) 1 


, 1941, 


1970 






1963 


SKIPOK 


066E 


(001646) i 


, 1959 








1971 


NOGO 


0676 


(001654) 1 


» 1952, 


1956 






1976 


COREOK 


067B 


(001659) 1 


, 1963, 


1965 






1994 


R80BLK 


0666 


(001670) 1 


> 1913, 


1923 






2003 


RBO001 


068F 


(001679) 


, 2019 








2005 


RBO003 


0691 


(001681) , 


, 2026 








2010 


RBO004 


0696 


(001686) , 


► 1142, 


1983 






2011 


RBD005 


0697 


(001687) i 


» 2008 








2015 


RBO007 


069B 


(001691) 


, 2013 
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DATE* 12/ 


L7/74 


2020 


RBO009 


06 AO 


(001696) i 


, 2016 










2037 


MTUNIT 


06A7 


(001703) , 


• 2043* 
, 357 0, 


2850, 
3577, 


3085, 
3585, 


3180, 
3729 


3286, 3408 


2038 


LOAOER 


06A8 


(001704) 


, 1895, 


2131, 


2956 






2048 


MTLDR1 


06B2 


(001714) 












2062 


MTL0R3 


06C0 


(001728) 


i 2107, 


2120 








2068 


HTL0R4 


06C7 


(001735) , 


, 2071 










2071 


MTLDR5 


06CA 


(001738) 












2072 


MTL0R6 


06CB 


(001739) 


, 2070 










2077 


MTL0R7 


0600 


(001744) 1 


, 2092, 


2099 








2085 


MTLD7A 


0608 


(001752) , 


, 2089 










2090 


MTLD7B 


0600 


(001757) , 


, 2088 










2091 


MTL0R8 


060E 


(001758) , 


, 2082 










209*1 


MTL0R9 


06E1 


(001761) 


, 2078 










2100 


MTL011 


06E7 


(001767) , 


, 2098 










2102 


SAVIT 


06E9 


(001769) 1 


, 2096, 


2111 








2105 


MTLDRH 


06EC 


(001772) , 


, 20 61 










2108 


HTLDPE 


06EF 


(001775) , 


, 2104 










2118 


MTBS 


06F9 


(001785) , 


, 2119 










2121 


MTL014 


06FO 


(001789) 


, 2117 










2123 


MTLD15 


06FF 


(001791) , 


► 2109 










212<» 


FLAG7T 


0700 


(001792) , 


, 2050 










2131 


MTL016 


0707 


(001799) i 


, 2090, 


2174 








2132 


HTL013 


0708 


(001800) , 


, 2125 










2137 


MTLD17 


070O 


(001805) 1 


, 2173 










2174 


MTL018 


0732 


(001842) , 


, 2171 










2177 


TYPBTL 


0747 


(001863) , 


r 0961 










2179 


PREEXS 


0750 


(001872) , 


, 1086, 


1087 








2181 


PREEXD 


0761 


(001889) , 


, 1087 










2190 


SPPOOO 


0762 


(001690) 1 


, 0223, 


2220 








2191 


SPB1 


0763 


(001891) 












2192 


SPB2 


0764 


(001892) , 


, 2195 










2196 


SPB4 


0768 


(001696) , 


, 2194 










2199 


SPB5 


076B 


(001899) , 


, 2203 










220* 


SPB6 


0770 


(001904) i 


, 2202 










2205 


SP87 


0771 


(001905) , 


, 2212 










2213 


SP88 


0779 


(001913) , 


, 2211 










2215 


SPB9 


077B 


(001915) , 


> 2219 










2220 


SPBENO 


0780 


(001920) , 


, 2218 










2226 


INTTY 


0781 


(001921) , 


, 0222, 


1484, 


2236, 


2277 




2233 


INTTY1 


078A 


(001930) , 


2241 










2237 


INTTY2 


078E 


(001934) , 


, 2232 










2242 


TTEMP 


0793 


(001939) 1 


, 2228, 


2229, 


2233, 


2234, 


2275, 2276 










> 2295, 


2316, 


2360, 


2371, 


2374, 2366 










2401, 


2423, 


2<»59, 


2460, 


2464, 2468 










2488 










2243 


ENDMON 


0794 


(001940) i 


0276, 


2837 








2260 


TELAQ 


0798 


(00194'*) , 


2240 










2266 


EXITEX 


07A0 


(001952) , 


> 2261, 


2309, 


2378, 


2387, 


2404 


2276 


EXTEX1 


07AC 


(001964) 












2278 


POINT 


07AE 


(001966) , 


, 2306, 


2351 








2280 


EXREAO 


07B0 


(001968) , 


, 2313, 


2377, 


2450, 


2487 




2282 


READ 


07B2 


(001970) , 


228 0, 


2299* 


2362, 


2379, 


2410, 2416 
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OATI 


■I 12/ 


L7/7* 










r 2*35 










2287 


STAT 


07B8 


(001976) 


► 2290 










2300 


MES1 


07C6 


(001990) 1 


r 2265, 


2297, 


2*76 






2307 


ANYL 


0700 


(002000) 1 


, 2281 










2310 


ANYL1 


07O3 


(002003) 


, 2308 










2314 


ANYL2 


07D7 


(002007) , 


, 2311 










2318 


ANYL3 


0708 


(002011) 1 


, 2315 










2321 


ANYL* 


07DE 


(00201*) 


, 2319 










232* 


ANYL5 


07E2 


(002018) , 


, 2322 










2327 


ANYL6 


07E5 


(002021) 1 


r 2325 










2329 


SPCK 


07E6 


(002022) , 


, 2333, 


2337, 


2338, 


23*1, 


23*2, 23*6 










, 2363, 


2380, 


2*11, 


2*17, 


2*36 


233* 


SPCK1A 


07EB 


(002027) , 


, 2331 










2338 


SPCK1 


07EF 


(002031) 1 


, 2335 










23*2 


SPCK2 


07F3 


(002035) 


, 23*0 










23<»6 


SPCK3 


07F7 


(002039) i 


, 23** 










2348 


ER1 


07F8 


(0020*0) , 


, 2326, 
, 2*19, 


23*5, 
2*29, 


2370, 

2*32, 


2385, 

2*62 


2392, 2*00 


2352 


ERMES 


07FE 


(0020*6) , 


► 23*8 










2356 


BELL 


080* 


(002052) 


, 2303 










2359 


HEX 


0806 


(00205*) , 


, 2317 










2362 


HEXRO 


080A 


(002058) 


, 2375 










2367 


HEXWO 


0810 


(00206*) 


, 2361, 


236* 








2376 


HEXSL 


081E 


(002078) 1 


, 2365, 


2*06 








2378 


HEXGR 


0820 


(002080) 


> 2366, 


2*20, 


2**0 






2379 


OEC 


0822 


(002082) , 


> 2320 










2383 


OECCR 


0826 


(002086) 1 


, 2*1* 










2388 


OECHD 


0820 


(002093) , 


, 2397, 


2*09, 


2*3* 






2398 


DECSL 


0839 


(002105) 


, 2362, 


2*13 








2<»05 


OECSL1 


08*2 


(00211*) 












2*07 


OMDCON 


08** 


(002116) , 


i 2381 










2*09 


DHD 


08*6 


(002118) i 


, 2*12 










2*15 


OTEMP 


08*D 


(002125) 


, 2383, 
t 2*52, 


2393, 
2*57 


2396, 


2398, 


2*08, 2*22 


2*16 


BIT 


08*E 


(002126) 


» 2327, 


2*26 








2*21 


BWDCON 


085* 


(002132) , 


, 2*18 










2*27 


BASM1 


085B 


(002139) i 


, 2**5 










2*35 


BASM2 


0863 


(0021*7) 


, 2*** 










2**1 


BASH 


086A 


(00215*) , 


, 2*37 










2**6 


BSL 


086F 


(002159) 1 


, 2*38 










2*51 


BITS 


0875 


(002165) 1 


, 2*39, 


2**3, 


2**6, 


2*61 




2*62 


BITERR 


0883 


(002179) 


, 2*5* 










2*63 


MES2 


0885 


(002181) , 


, 2262 










2*77 


THES 


0899 


(002201) 1 


, 2*66, 


2*67, 


2*70, 


2*71, 


2*73 


2*85 


SETP 


08A1 


(002209) , 


r 2323 










2*88 


SETPGO 


08A5 


(002213) , 


► 227* 










2501 


SETPO 


08B8 


(002232) 


, 2*97, 


2*98 








2505 


SETPFG 


08BO 


(002237) , 


t 226*, 


2272, 


2302, 


2*86, 


2*89 


2513 


CONHEX 


08BE 


(002238) , 


, 0250, 


2369, 


2537, 


2539 




2539 


ILLASC 


0808 


(00226*) • 


, 2517, 


2522, 


2529, 


2535 




25*0 


ASCI HE 


0809 


(002265) 1 


> 2516, 


2521, 


2528, 


253*, 


2552, 2553 



2553 



ASC5 



06E6 (002278) , 25*3, 25*5, 25*7, 25*9 
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DATE! 12/17/74 


2562 


CONOEC 


08E7 


(002279) i 


, 0251, 


2591, 


2592 




2564 


CHKLEG 


08E9 


(002281) , 


, 2569 








2570 


OECILL 


08EF 


(002287) , 


, 2567 








2571 


LEGDEC 


08F0 


(002288) 


i 2568 








2592 


ILLOEC 


0905 


(002309) 1 


r 2570 








2593 


DEC1 


0906 


(002310) , 


, 2577 








2594 


0EC2 


0907 


(002311) 


, 2583 








2595 


DEC3 


0908 


(002312) , 


, 2589 








2596 


TTYENO 


0909 


(002313) , 


, 2833 








2604 


DR42 


090A 


(002314) 


, 1636 








2608 


OR42EX 


090F 


(002319) 1 


, 2652 








2609 


DR42A 


0911 


(002321) t 


, 2606, 


2648 






2616 


DR42AB 


091B 


(002331) , 


, 2625 








2621 


DR42AC 


0922 


(002338) 1 


, 2614 








2626 


DR42A0 


0928 


(002344) i 


, 2620, 


2623 






2627 


0R42B 


0929 


(002345) 










2636 


DR42BA 


0933 


(002355) , 


, 2633 








2638 


DR42BB 


0935 


(002357) 


, 2631 








2644 


DR42E 


093D 


(002365) , 


, 2635, 


2637 






2649 


DR42EA 


0945 


(002373) , 


, 2647 








2654 


PRTBFR 


094A 


(002378) , 


, 2636, 


2642, 


2659 




2660 


PRTREJ 


0950 


(002384) i 


, 2658 








2663 


PRTCLR 


0952 


(002386) 1 


, 2667 








2668 


CLRREJ 


0957 


(0 02391) 1 


, 2666 








2671 


DR42T1 


0959 


(002393) , 


, 2610, 
, 2657 


2616, 


2619, 


2627* 2638, 2641 


2672 


DR42T3 


095A 


(002394) 1 


, 2612, 


2621, 


2629 




2673 


PRTEQU 


095B 


(002395) , 


, 2655, 
► 2767 


2664, 


2682, 


2691, 2698, 2758 


2675 


PRTFNC 


095C 


(002396) 


, 2615, 


2643, 


2679 




2681 


PRTBSY 


0961 


(002401) 1 


, 2604, 


2626, 


2677, 


2688 


2690 


PRT42 


096A 


(002410) 1 


, 2624, 


2634, 


2651, 


2676, 2695 


2697 


SPC42 


0970 


(002416) 1 


, 2607, 


2678, 


2702 




2703 


PRTEND 


0976 


(002422) , 


, 2829 








2710 


LOOVLY 


0977 


(002423) , 


> 2714, 


2919 






2716 


OCALL8 


097C 


(002428) , 


» 2710, 


2719, 


2720, 


2721 


2723 


PPM0N 


0982 


(002434) i 


, 2711 








2724 


PTYPE 


0983 


(002435) 










2729 


HEAOG 


0969 


(002441) 1 


, 2724, 


2725 






2731 


HEADF 


099A 


(002458) 1 


, 2724 








2738 


HBSOLY 


099B 


(002459) 1 


, 3738 








2749 


INSMM1 


099C 


(002460) 1 


, 0245 








2755 


IN0 


09A2 


(002466) 


► 2752 








2779 


INITSJ 


09C1 


(002497) , 


, 2785 








2782 


PRESTR 


09C4 


(002500) 1 


, 2780 








2787 


LDEQ 


09C9 


(002505) , 


, 2784 








2796 


IN2A 


0903 


(002515) 1 


, 2799 








2799 


IN2B 


0906 


(002518) , 


, 2796 








2800 


IN2C 


09D7 


(002519) , 


, 2797 








2807 


IN20 


090E 


(002526) , 


, 2810 








2812 


IN3 


09E3 


(002531) , 


r 2792, 


2798 






2813 


IN3A 


09E4 


(002532) , 


> 2819 








2820 


IN3B 


09ED 


(002541) i 


2817 
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DATE* 12/17/74 


2824 


IN4 


09F1 


(002545) 1 


, 2811 






2838 


IN4C 


0A03 


(002563) 1 


► 2828* 


2832, 


2836 


2845 


LDL0R1 


OAOA 


(002570) 


, 2852 






2849 


L0L0R2 


0A1O 


(002576) 


, 2846 






2850 


LDLDR3 


0A11 


(002577) 








2853 


TOHEAO 


0A15 


(002581) , 


, 2844, 


2851 




2856 


IN5 


0A19 


(002585) , 


, 2868 






2869 


INI 


0A27 


(002599) i 


, 2858, 


2874 




2875 


IN2 


0A2O 


(002605) , 


, 2873 






2881 


BKCHK1 


0A32 


(002610) , 


, 2888 






2889 


BKCHK2 


0A3A 


(002618) , 


, 2886 






2891 


BKCHK3 


0A3C 


(002620) , 


, 2884 






2892 


BKCHK4 


0A3D 


(002621) 


i 2890 






2901 


IN10 


0A48 


(002632) , 


, 2770, 


2772, 


2822, 2823, 2825, 2839 


2907 


IN13A 


0A4E 


(002638) i 


, 2898 






2911 


IN13B 


0A52 


(002642) , 


, 2897, 


2905, 


2980 


2920 


IN13C 


OA50 


(002653) , 


» 2918 






2930 


LLCONT 


0A5F 


(002655) , 


, 2906, 


2933, 


2978 


29*8 


LLi 


0A72 


(002674) , 


, 2944, 


2946, 


3042 


2951 


LL2 


0A75 


(002677) , 


► 2949 






2960 


ALFXH 


0A7F 


(002687) , 


, 2971 






2971 


NOTXH 


0A8B 


(002699) 1 


, 2961 






2977 


FLGENO 


0A92 


(002706) , 


i 2910, 


2950, 


2986 


2980 


LLTERH 


0A95 


(002709) , 


, 2977 






2981 


LLTRH1 


0A96 


(002710) • 


, 2947 






2984 


SETTER 


0A9A 


(002714) , 


, 2943 






2987 


CONTLL 


0A9D 


(002717) , 


, 2976 






2988 


LLNAH 


0A9E 


(002718) 


, 2974 






3004 


OATEPL 


OAAE 


(002734) , 


, 3001 






3026 


LLLINE 


0AC4 


(002756) , 


, 3003 






3028 


CKLLER 


0AC7 


(002759) , 


» 2970, 


2987 




3042 


JLL1 


OA05 


(002773) , 


, 3029, 


3045 




3043 


LLERIO 


OA06 


(002774) 








3044 


ERCOOE 


0AD7 


(002775) 


, 3030 






3045 


CALLAO 


0AD8 


(002776) 








3046 


ST0PA3 


0AD9 


(002777) , 


, 3032 






3047 


ST0PQ3 


OAOA 


(002778) 


, 30 34 






3048 


ST0PA4 


OAOB 


(0027791 


• 3036 






3049 


ST0PQ4 


OADC 


(002780) 


, 3039 






3050 


LLHS62 


OAOO 


(002781) 


, 2981, 


2982 




3052 


LLMSG3 


0AE1 


(002785) 


, 2982, 


2991, 


3002, 3025, 3026 


3053 


NAMW05 


0AE2 


(002786) 


, 2999 






3054 


NAHH06 


0AE3 


(002787) , 


, 3000 






3 055 


DATE01 


0AE4 


(002788) 1 


, 3002, 


3014 




3056 


DATE23 


0AE5 


(002789) 


, 3019 






3057 


OATE45 


0AE6 


(002790) 1 


, 3024 






3058 


PL 


0AE7 


(002791) 


, 3007, 


3008 




3060 


LLMSG4 


OAEB 


(002795) 


, 2968, 


2969, 


3025 


3062 


HEAOIN 


0AF5 


(002805) 1 


, 2853, 


2854, 


2966, 2967, 2969 


3069 


HEADS 


0B1E 


(002846) 


, 2853, 


2859, 


2864, 2865 


3071 


HEAOC 


0B25 


(002853) 


, 2864 






3073 


HEAOO 


0B2F 


(002863) 1 


, 2859 
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3089 


PTCNT 


06A7 


(001703) 




3102, 
3176 


3107, 


3120, 3123, 3131, 313* 


3090 


PT1LOR 


06A8 


(00170*) 




3095* 


3178 




3096 


PT00 


06AE 


(001710) 










3099 


PT01 


06B1 


(001713) 




3165 






3105 


PT02 


06B7 


(001719) 




312* 






3120 


PT03 


06C7 


(001735) 




3109* 


3111 




3125 


PTO* 


06CC 


(0017*0) 




3115, 


3119, 


3133 


313* 


PT05 


0605 


(0017*9) 




3132 






3136 


PT06 


0607 


(001751) 




3139 






31*0 


PT07 


06DB 


(001755) 




3138 






31*2 


PT08 


0600 


(001757) 




31*0 






31*<i 


RPTF 


06OE 


(001758) 




3098, 
3161, 


3101, 
316* 


3103, 3106, 3126, 3129 


31*6 


RPTFOO 


06E0 


(001760) 




3156, 


3159, 


3167 
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3402 
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, 3544 











60411400 C 



PAGE 136 



'' -> \ r\ 



/' ^N 



> o 



o 



) o o o o o o o o 



C~D O O O 



< ') 



o c 





SMH000 




PAGE 137 




DATE* 12/ 


17/74 


3554 


CONHHS 


0733 


(001843) 1 


► 3559 








3560 


CDEXT 


0739 


(001849) 1 


, 3533 








3568 


C0A01 


0741 


(001857) < 
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3587 


HT8UN 


06A7 


(001703) 


, 3593, 


3596 






3588 


NT8L0R 


06A8 


(001704) 


• 3601, 


3679 






3602 


HT8L0X 
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06C1 
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06C9 
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3625 


HT8L1 


06CE 


(001742) i 
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3626 


MT89TR 
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(001743) . 
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3677 






3627 


MT8L3 


0600 
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3659 




3641 


MT8L5 


060F 
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, 3644 








36*5 


MT8L4 


06E3 
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3649 


NT8L6 


06E7 


(001767) , 


, 3651 








3652 


MT8L7 


06EA 


(001770) i 


> 3650, 


3660, 


3666 




3657 


MT8LRW 


06EF 


(001775) , 


, 3624, 


3630 






3659 


MT8L8 


06F2 


(001776) , 


• 3674 








3660 


HT8LB 


06F3 


(001779) , 


, 3655 








3675 


MT8L0 


0701* 


(001796) 1 


, 3670 








3677 
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0706 


(001798) , 


, 3662 








3679 


HT8L11 


0708 
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, 3725 








3681 


MT8LE 


0709 


(001801) i 


, 3678 








3686 


MT8LF 


070E 


(001806) 1 


► 3724 








3725 


HT8L10 


0734 


(001844) < 


, 3722 








3746 


INEOOO 


099B 


(002459) 1 


0616, 


3755 
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09A4 


(002468) 1 
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3752 






3756 


PR0C2B 


09A5 
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, 3754 








3764 


PR0C9 


09AE 
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, 3762 








3766 
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09B1 
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3783 


PROC10 


09C5 
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► 3779 
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INE025 


09CA 


(002506) i 


, 0249, 


3802, 


3990, 4031 




3792 


INE027 


09CE 


(002510) 1 


» 3801 








3796 


INE029 


0902 


(002514) , 


, 4008, 


4057 






3802 


INE030 


0908 


(002520) 1 


, 3795 








3808 


INE031 


0909 


(002521) 1 


, 3794 




. 




3809 


INE054 . 


090A 


(002522) , 


i 3818 








3819 


INE056 


09E4 


(002532) i 


, 3812, 


3816 






3820 


INE057 


09E5 


(002533) 










3821 


INE059 


09E6 


(002534) i 


, 3789 
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H0G1 


09E8 


(002536) 1 


, 3839, 


3842, 


4151 
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NPEOOO 


09E9 
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, 0246, 
> 3894, 


3834, 
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3845, 3857 
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09F0 
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, 3837 
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, MPE007 
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, 3840 
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0A01 
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, 3856 








3862 
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, 3852 
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OAOO 
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, 3878 
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0A17 


(002583) 1 
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, 3659 
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0A2E 
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0A2F 
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0A30 
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3901 


INTSTK 
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3869, 
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3917 
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0A42 
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0A6F 
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, 3773, 


4044, 
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0A7E 
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r 0242. 
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3999 


DSE010 


0A8E 
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, 3988 






4011 


SIEOOO 


0A9A 


(002714) , 


, 0243, 


4012 




4039 


SIEQ10 


0A88 


(002744) , 


, 4016. 


4030 




4041 


SIE012 


OABB 


(002747) , 


, 4019 






4060 


RIEOOO 


OACE 


(002766) , 


, 0241. 


4061 




4075 


RIE006 


OAOO 


(002781) i 


, 4101 






4079 


RIE008 


0AE1 


(002785) , 


, 4077 






4089 


RXE007 


OAEO 


(002797) , 


, 4086 






4098 


RIE009 


0AF7 


(002807) , 


, 4094 






4102 


RIE011 


OAFB 


(002811) , 


, 4093 






4103 


RIE012 


OAFC 


(002812) , 


► 4088 






4105 


RIE013 


OAFF 


(002815) , 


, 3786, 


4078 




4115 


RIE015 


0B06 


(002822) , 


, 4112 






4116 


RIE020 


0B07 


(002823) , 


, 4114 






4132 


RIE025 


OBOF 


(002831) , 


r 0237, 


4119, 


5280 


4145 


RIE030 


OB20 


(002848) , 


, 4140 






4149 


H6E000 


0B23 


(002851) , 
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4153 




4162 


FNEOOO 


0B29 


(002857) , 


, 0224 
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FNE002 


0B36 
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4196 
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0B4E 


(002894) , 
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4249 




4205 
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0B59 
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4209 
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0B5O 
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4214 


FNE015 


0B63 
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4225 




4220 
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0B69 
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4224 


FNE017 


0B6D 


(002925) , 
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4236 




4226 
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0B6F 


(002927) , 


, 4222 






4232 
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0B76 
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4227 






4241 


FNE020 


0B7B 


(002939) , 


, 4260 






4250 


FNE030 


0884 


(002948) , 


, 4245 
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0B86 


(002950) 1 
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FNEQ36 


0B87 
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(002959) i 
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, 4310 
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r 4315 
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(003349) i 


r 1305 








4691 


ERTOOO 


0D17 


(003351) , 


, 4673, 


4678, 


4679, 


4683, 4687 


4692 


ERT001 


0018 


(003352) 1 


, 4574 








4693 


ERT0 02 


0D19 


(003353) , 


, 4577 








4694 


ERT003 


0D1A 


(003354) , 


, 4656 








4707 


ERE 045 


0027 


(003367) 1 


, 4546, 


4690 






4726 


TIEOOO 


0O30 


(003376) , 


, 0229, 


4785 






4727 


TIE001 


0D31 


(003377) 










4745 


TIE002 


0O44 


(003396) 










4751 


TIE003 


0D49 


(003401) 1 


t 4763 








4760 


TIE004 


0053 


(003411) 1 


, 4752, 


4754 






4764 


TIE006 


0058 


(003416) , 


, 4762 








4767 


TIE010 


0D5B 


(003419) 1 


, 4765 








4768 


TIE011 


005C 


(003420) i 


, 4774 








4772 


TIE012 


0O62 


(003426) , 


► 4769 








4775 


TIE050 


0065 


(003429) < 


► 4766, 


4773 






4786 


TITOOO 


0070 


(003440) 


• 4738, 


4856, 


4913, 


5071 


4787 


TIT001 


0O71 


(003441) 1 


, 4739 








4791 


TCLOCK 


0075 


(003445) , 


, 4745, 


4746, 


4775 




4807 


XOEQOO 


0076 


(003446) 


i 0230, 


4812, 


4814, 


4819 


4808 


XOE001 


0O77 


(003447) , 


, 4821 








4818 


X0T001 


0082 


(003458) 


, 4808, 


4811, 


4815 




4821 


XOE002 


0085 


(003461) , 


• 4613, 


4816 






4850 


FXEOOO 


0086 


(003462) , 


, 0231, 


4851, 


4860, 


4864, 4865 


4866 


FXE002 


0092 


(003474) , 


, 4862 








4871 


DLEOOO 


0093 


(003475) 


i 4873, 


4682 






4877 


DLE005 


0096 


(003478) 1 


i 4872 








4883 


DLE010 


009B 


(003483) , 


, 4881 








4886 


FXT001 


0O9C 


(003484) 1 


, 4859 








4890 


OLT001 


OOAO 


(003488) 1 


, 4657 








4894 


DLT003 


0OA4 


(003492) 


, 4858, 


4880 






4906 


HSEOOO 


0OA5 


(003493) , 


, 0240, 


4956 






4920 


MSE0 05 


0OB3 


(003507) , 


, 4923 








4924 


HSE010 


0087 


(003511) < 


, 4922 








4944 


MSE015 


OOCB 


(003531) , 


, 4930, 


4935, 


4940 




4956 


HSE020 


OD07 


(003543) 


, 4952 








4957 


MSTOOO 


0008 


(003544) t 


, 4927 








4965 


FHEOOO 


0009 


(003545) 


i 0238, 


4972 






4967 


FHE005 


OOOB 


(003547) 










4968 


FME010 


OOOC 


(003548) 










4973 


FWAAR 


0OE1 


(003553) , 


, 4983, 


4995 






4974 


FWAQR 


0DE2 


(003554) 


, 4966, 


4970, 


4984, 


4996 


4982 


POSOOQ 


0DE3 


(003555) 1 


, 0239, 


4998 






4985 


POS0Q5 


0OE6 


(003558) 
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DATI 


El 12/17/74 


4993 


POS010 


OOEF 


(003567) t 


, 4988 








4994 


POS020 


OOFO 


(003568) , 


, 4992 








5007 


SPE000 


0DF5 


(003573) 


, 0232, 


5008, 


5009, 


5010, 5016, 5017 


5011 


SPE010 


0OF9 


(003577) , 


, 5015 








5016 


SPE005 


ODFE 


(003582) - 


, 5014 








5026 


CPE000 


OEOO 


(00358(f) i 


» 0233* 


5027, 


5028, 


5029, 5035, 5036 


5030 


CPE010 


0E04 


(003588) , 


► 5034 








5035 


CPE0 05 


0E09 


(003593) 


, 5033 








5038 


ROEOOO 


OEOB 


(003595) 


r 0234, 


5041 






5042 


ROE010 


OEOF 


(003599) 


, 5048 








5044 


WREOOO 


0E11 


(003601) , 


, 0235, 


5047 






5055 


RHEOOO 


0E16 


(003606) 


, 5042, 


5043 






5060 


RWE005 


0E1B 


(003611) 


, 5058 








5066 


RHE011 


0E21 


(003617) , 


, 5064 








5078 


RME013 


0E2F 


(003631) 


, 5065 








5089 


RWE021 


0E3B 


(003643) 


i 5083 








5092 


RHE022 


0E3F 


(0036<»7) , 


, 5088 








5112 


RWE024 


0E55 


(003669) t 


, 5110 








5113 


RNE025 


0E56 


(003670) , 


» 5099 








5116 


RWE010 


0E59 


(003673) , 


, 5059 








5118 


RWE045 


0E5B 


(003675) , 


, 5114 








5128 


RWE0 30 


0E65 


(003685) i 


> 5112, 


5126 






5142 


RHE01<» 


0E74 


(003700) 


, 5140 








5145 


RWE035 


0E77 


(003703) , 


, 5137, 


5139 






5147 


RHE015 


0E7A 


(003706) i 


, 5127 








5155 


RHE018 


0E83 


(003715) 1 


r 5141, 


5144 






5156 


RHE020 


0E85 


(003717) , 


, 5146 








5161 


RHE050 


0E8A 


(003722) 1 


► 5159 








5166 


RME055 


0E8F 


(003727) , 


, 5160 








5170 


RHEQ70 


0E93 


(003731) , 


> 5165 








5172 


RHTOOO 


0E96 


(003734) 1 


, 5087, 


5089 






5174 


RMT001 


0E98 


(003736) 1 


, 5091 








5175 


RHT002 


0E99 


(003737) , 


,5161, 


5164, 


5200 




5176 


RHT003 


0E9A 


(003738) , 


, 5163, 


5196 






5177 


RHT004 


0E9B 


(003739) 1 


, 5105, 


5120, 


5128, 


5147, 5188, 5192 










► 5201, 


5204, 


5241, 


5254, 5262, 5263 


5178 


RWT005 


0E9C 


(003740) 


, 5097, 


5124, 


5190 




5179 


RHT006 


OE90 


(003741) 


, 5217 








5180 


RWT008 


0E9E 


(003742) t 


, 5070, 


5193 






5181 


RWT009 


0E9F 


(003743) , 


, 5101, 


5230 






5182 


RMT010 


OEAO 


(003744) , 


, 5095, 


5111, 


5143, 


5169 


5183 


RWT011 


0EA1 


(003745) 1 


, 5072 








5187 


RWE065 


0EA5 


(003749) i 


r 5173 








5188 


RWE075 


0EA6 


(003750) , 


f 5132, 


5151, 


5172, 


5262 


5201 


RHE080 


0EB2 


(003762) i 


, 5135, 


5154, 


5195, 


5199, 5263 


5204 


RME095 


0EB5 


(003765) , 


, 5191 








5208 


RHE200 


0EB9 


(003769) 1 


, 5206, 


5233, 


5247 




5223 


RME202 


OECC 


(003788) 1 


, 5221 








5227 


RHE205 


OEOO 


(003792) , 


f 5224 








5229 


RWE210 


OE02 


(003794) , 


5226 
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DA 


5234 


RWE160 


0ED7 


(003799) 


* 


5174 




5238 


RWE165 


OEOB 


1003803) 


* 


5235. 


5252 


5240 


RHE172 


OEOD 


(003805) 


• 


5237 




5245 


RHE173 


0EE2 


(003810) 


t 


5242 




5246 


RHE175 


0EE3 


(003811) 


t 


5244 




5249 


RWE170 


0EE6 


(003614) 


9 


5085 




5253 


RWE220 


OEEB 


(003819) 


9 


5232* 


5240 9 5259 


5259 


MBSENO 


OEFl 


(003825) 








5260 


IORPLY 


0001 


(000001) 


* 


5215 




5261 


INST 


OOOO 


(000013) 


• 


5179 




5262 


READE 


7FF4 


(032756) 


• 


5150 




5263 


WRITE 


7FE8 


(032744) 


» 


5134 




5272 


PFE010 


0EF2 


(003826) 


» 


0740 




5278 


PFE015 


0EF9 


(003833) 


t 


5274 




5283 


PFE020 


OEFF 


(003839) 


9 


5275 t 


5277 t 5281 


5284 


LASMBS 


OF01 


(003841) 


9 


28249 


2930 
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DATE* 12/17/74 



»»* ALPHABETICAL SORT OF SYMBOLS •♦* 



AOOR 


1731 


AOINST 


0253 


ADQX 


336<t 


ADR1 


831 


A0R2 


0832 


A0R3 


0833 


A0R4 


0834 


A0R5 


0835 


ADR6 


0836 


AFESYM 


0046 


ALFXH 


2960 


ANYL 


2307 


ANYL1 


2310 


ANYL 2 


2314 


ANYL3 


2318 


ANYL4 


2321 


ANYL5 


2324 


ANYL6 


232 7 


AQ1 


1412 


AQ.1A 


1417 


AQ2 


1456 


AQCNT 


1433 


AQPOS 


1268 


AQSTP 


1483 


AQTTY 


1404 


AQX 


1532 


AQX1 


1539 


ASC5 


2553 


ASCOEC 


0251 


ASCHEX 


0250 


ASCIHE 


2540 


ASCWO 


0258 


AUTOPP 


0262 


AXREPT 


0588 


BO 


0475 


Bl 


0476 


B2 


0477 


B3 


0478 


B4 


0479 


B5 


0480 


B6 


0481 


B7 


0482 


BASH 


2441 


BASM1 


2427 


BASH2 


2435 


BELL 


2356 


BFR1 


1502 


BFR2 


1503 


BFRB4L 


1504 


BIAS 


1402 


BIASED 


1147 


BIT 


2416 


BITOO 


0379 


BIT01 


0380 


BIT02 


0381 


8IT03 


0382 


BIT04 


0383 


BIT05 


038*1 


BIT06 


0385 


BIT07 


0386 


BIT08 


0387 


BIT09 


0388 


BIT10 


0389 


BITU 


0390 


BIT12 


0391 


BIT13 


0392 


BIT14 


0393 


BIT1S 


0394 


BITERR 


2462 


BITS 


2451 


BKCHK1 


2881 


BKCHK2 


2889 


BKCHK3 


2891 


BKCHK4 


2892 


BLOBFR 


1575 


BSL 


2446 


BUILOT 


0947 


BUSY 


0779 


BWDCON 


2421 


C108 


0412 


CALLAD 


3045 


CALLP 


0092 


CALLPT 


0263 


CO 08 


3476 


CO09 


3485 


CO09A 


3503 


CD09B 


3507 


C01LDR 


3410 


COAOl 


3568 


COCUAO 


3539 


COO 


0026 


CDOOVL 


3351 


CDOSK 


1818 


COERR 


3482 


CDEXT 


3560 


COLOA2 


3547 


COLOAD 


3510 


CONHHS 


3554 


CDP01 


3411 


CDP02 


3426 


CDP02A 


3427 


COP 03 


3432 


C0P04 


3442 


CDP10 


3443 


CDP10A 


3449 


COP11 


3456 


CDP12 


3460 


CDPADR 


3464 


COPALH 


0132 


COPNAH 


3462 


COPROE 


3438 


COROWR 


3466 


CDSTAT 


3493 


CDUNIT 


3409 


CH2050 


3463 


CH3RSP 


0075 


CHAOR 


0081 


CHANNO 


0049 


CHAR1 


0510 


CHAR2 


0511 


CHARSP 


0073 


CHKLEG 


2564 


CHKMBS 


0654 


CHPEPF 


0713 


CHRSP 


0072 


CHST 


0080 


CHST3 


0083 


CJHP 


3529 


CJHPDF 


3436 


CKAQ 


1476 


CKAQA 


1481 


CKCDAL 


3489 


CKCOUN 


1487 


CKDPAL 


3379 


CKEOOO 


4530 


CKFLAG 


1868 


CKID 


1353 


CKIONH 


1424 


CKLLER 


3028 


CKPE 


0720 


CKPF 


0722 


CKSJ48 


1374 


CKSHER 


0124 


CKST 


0226 


CKTFLG 


1874 


CLOCK 


0229 


CLRIA 


0968 


CLRPP 


0112 


CLRREJ 


2668 


CNTNUH 


1732 


COMUSE 


0495 


CONASC 


1233 


CONOEC 


2562 


CONHEX 


2513 


CONTLL 


2987 


CONTRO 


1161 


CONTR1 


1172 


C0NTR3 


1173 


C0NTR7 


1168 


CONTRO 


0209 


CONV00 


1236 


CONV01 


1244 


CONV02 


1251 


CONV03 


1255 


CONV04 


1260 


CORCHK 


1943 


COREOK 


1976 


CORHOO 


0135 


CPB 


0233 


CPEOOO 


5026 


CPE005 


5035 


CPE010 


5030 


CR 


3161 


CROO 


3183 


CR01 


3194 


CR02 


3195 


CR03 


3202 


CR04 


3205 


CR05 


3207 


CR06 


2208 


CR07 


3209 


CR08 


3212 


CR11 


3216 


CR12 


3227 


CR13 


3228 


CR15 


3231 


CR16 


3233 


CR17 


3240 


CR18 


3260 


CR1LOR 


3182 


CR21 


3276 


CR22 


3277 


CR23 


3281 


CR24 


3283 


CRALAR 


0126 


CRD 


0023 


CREOP 


0127 


CREXIT 


3275 


CRFLGS 


3266 


CRLUNO 


0100 


CRSUNO 


0101 


02 


0503 


DATA 


1558 


OATA1 


1564 


DATARE 


0116 


DATE01 


3055 


OATE23 


3056 


DATE45 


3057 


DATEPL 


3004 


OATLGH 


0039 


DEC 


2379 


OEC1 


2593 


OEC2 


2594 


OEC3 


2595 


DECCR 


2383 


DECILL 


2570 


DECSL 


2398 


DECSL1 


2405 


DECWD 


2388 


DLEO00 


4871 


DLE005 


4877 


OLE010 


4883 


DLT001 


4890 


DLT003 


4894 


DP 


00 25 


OP 01 


3289 


OP02 


3304 


DP02A 


3309 


DP03 


3310 


OP04 


3320 


DP08 


3358 


DP 09 


3373 


OP10 


3322 


OP10A 


3328 


DP11 


3335 


DP12 


3339 


DP1LOR 


3288 


OPADR 


3343 


DP ALAR 


0130 


DPERR 


3375 


DPNAML 


3341 


DPRDER 


3316 


DPRDWR 


3345 


DR42 


2604 


DR42A 


2609 
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OATEt 


12/17/7 


4 


DR42AB 


2616 


DR42AC 


2621 


OR42AD 


'2626 


0R42B 


2627 


DR42BA 


2636 


0R42BB 


263 8 


0R42E 


2644 


DR42EA 


2649 


0R42EX 


2608 


0R42T1 


2671 


DR42T3 


2672 


OSEOOO 


3985 


OSE010 


3999 


OSELIN 


0242 


DTEMP 


2415 


OHO 


2409 


OHOCON 


2407 


EE 


1225 


ENDAQ 


1499 


ENOBFR 


1570 


ENOCNV 


1258 


ENDHES 


1681 


ENOHON 


2243 


ENOSHR 


0867 


ENDSTP 


1391 


ENTA 


0837 


ENTQ 


0838 


EQUIP 


0351 


EQUIP T 


0050 


ER1 


2348 


ERCODE 


3044 


ERE0 00 


4545 


ERE010 


4634 


ERE012 


4648 


ERE015 


4624 


ERE020 


4654 


ERE025 


4655 


ERE0 35 


4659 


ERE040 


4673 


ERE 045 


4707 


ERE050 


4586 


ERE 060 


4591 


ERE070 


4663 


ERE072 


4669 


ERE074 


4671 


ERE076 


4672 


ERE 080 


4594 


ERE0 82 


4599 


ERE085 


4616 


ERE 090 


4625 


ERE100 


<i689 


ERMES 


2352 


ERRFLE 


0099 


ERROR 


0228 


ERT0 00 


4691 


ERTOOi 


4692 


ERT002 


4693 


ERT003 


4694 


ERT004 


4581 


ERT0 05 


4580 


EXECTL 


1065 


EXIMR 


0067 


EXIT 


1188 


EXIT03 


0660 


EXIT05 


0662 


EXITS 


1196 


EXITC 


1198 


EXITD 


1211 


EXITEX 


2266 


EXITG 


1224 


EXITL 


0644 


EXLEV 


0667 


EXREAO 


2280 


EXTEX1 


2276 


F33 


3524 


F33G0 


3528 


FAKE 


0213 


FCLRIN 


0873 


FIXDLY 


0231 


FLAG7T 


2124 


FLGEND 


2977 


FLGMSG 


0830 


FLGSMR 


0828 


FLGSTP 


0829 


FN 


0224 


FNEOOO 


4162 


FNE002 


4173 


FNE005 


4196 


FNE007 


4205 


FNE010 


4209 


FNE015 


4214 


FNE016 


4220 


FNE017 


4224 


FNE018 


4226 


FNE019 


4232 


FNE020 


4241 


FNE0 30 


4250 


FNE0 34 


4252 


FNE036 


4253 


FNE038 


4256 


FHAAR 


4973 


FWAEI 


0239 


FHAI 


0238 


FWAQR 


4974 


FWEOOO 


4965 


FHE005 


4967 


FWE010 


4968 


FXE000 


4850 


FXE002 


4866 


FXT001 


4886 


GEN1 


1779 


GENMOR 


1762 


GENRAN 


1758 


GENROM 


0215 


H000O 


0395 


HOOOF 


0397 


H007F 


0410 


H00F0 


0398 


HOOFF 


0401 


H0780 


0409 


HOEOQ 


0414 


HOFOO 


0399 


HOFFF 


0404 


H2020 


0411 


H2050 


3342 


H7FOO 


0408 


H7FFF 


0407 


H8D0A 


1734 


HACT 


0038 


HEAOB 


3069 


HEADC 


3071 


HEADO 


3073 


HEADF 


2731 


HEAOG 


2729 


HEAOIN 


3062 


HEX 


2359 


HEXASC 


0218 


HEXCOR 


1907 


HEXCR 


2378 


HEXRO 


2362 


HEXSL 


2376 


HEXWD 


2367 


HEXMOR 


0257 


HF000 


0400 


HFOFF 


0406 


HFEFO 


0413 


HFFOO 


0402 


HFFOF 


0405 


HFFFO 


0403 


HFFFF 


0396 


HGEOOO 


4149 


HOG 


0236 


HOG1 


3831 


H0G2 


0260 


I 


0000 


10 


1399 


101 


1365 


102 


1364 


1048 


1363 


IOSAVE 


1427 


ILBZY 


0114 


ILLASC 


2539 


ILLBLK 


1853 


ILLDEC 


2592 


ILLRBD 


0121 


ILO 


0261 


ILT 


0036 


IHR 


0064 


INO 


2755 


INI 


2869 


INiO 


2901 


IN13A 


2907 


IN13B 


2911 


IN13C 


2920 


IN2 


2875 


IN2A 


2796 


IN2B 


2799 


IN2C 


2800 


IN20 


2807 


IN3 


2812 


IN3A 


2813 


IN3B 


2820 


IN4 


2824 


IN4C 


2838 


IN5 


2856 


INBZ1 


0278 


INE000 


3746 


INE025 


3788 


INE027 


3792 


INE029 


3796 


INE03Q 


3802 


INE031 


3808 


INE054 


3809 


INE0 56 


3819 


INE057 


3820 


INE059 


3821 


INFORM 


0281 


INIT1 


1075 


INIT1A 


1079 


INIT1B 


1100 


INITIO 


1098 


INIT1D 


1090 


INIT2 


1102 


INIT4 


1104 


INIT4D 


1107 


INIT4E 


1113 


INIT5 


1151 


INIT9A 


1136 


INITA 


0990 


INITA1 


0993 


INITA2 


1020 


INITA3 


1031 


INITAA 


1034 


INITAB 


1046 


INITAC 


0980 


INITB 


1137 


INITC 


1116 


INITO 


1126 


INITF 


1114 


INITSJ 


2779 


INPTTY 


0222 


INQX 


3359 


INSHH1 


2749 


INST 


5261 


INT000 


3902 


INT001 


3917 


INT002 


3933 


INT003 


394? 


INT004 


3967 


INT005 


3898 


INTACT 


1729 


INTFLG 


0254 


INTON1 


0668 


INTPRC 


0244 


INTREJ 


4446 


INTSTK 


3901 


INTTY 


2226 


INTTY1 


2233 


INTTY2 


2237 


INTX 


0245 


IOACT 


255 


IOOATA 


0270 


IOE050 


4341 


IOE053 


4351 


IOE055 


4368 


I0E058 


4379 


IOE100 


4382 


IOE120 


4391 


IOE130 


4409 


I0E135 


4410 


IOE140 


4411 


I0E145 


4414 


IOE150 


4418 


I0E155 


4422 


I0E156 


4429 


I0E157 


4435 


IOE160 


4438 


I0E165 


4416 


IOE170 


4441 


IOE200 


4450 


IOE20Z 


4458 


IOE204 


4470 


IOE206 


4474 
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DATE! 


12/17/74 


I0E214 


4512 


IOESYM 


0044 


IOPF 


4447 


IORPLY 


5260 


IOT000 


4337 


IOT001 


4258 


IOT002 


4261 


IOT003 


4381 


IOT004 


4436 


IOTM1 


0271 


I0TM2 


0272 


I0TM3 


0273 


ISAVE 


1396 


ISER 


0484 


ISERR 


0759 


ISERR1 


0770 


ISERR2 


0776 


ISERRQ 


0777 


ITESYM 


0043 


ITIMER 


0117 


ITLINS 


0052 


IXT1 


1060 


JLL1 


3042 


JMPDIF 


3314 


JMPLOR 


1938 


JTYPL 


1525 


JUMP 


0214 


JUMPO 


0318 


JUMP1 


0352 


JUMP2 


0354 


JUHP3 


0353 


JUMPX 


0311 


LASMBS 


5284 


LASTAO 


0277 


LASTID 


1505 


LASTOV 


0282 


LASTVA 


0276 


LOADR 


3391 


LOAOR1 


3402 


L0ADR3 


3516 


LDCONT 


1887 


LDEQ 


2787 


LDL1CO 


0280 


LOLCOR 


0279 


LOLOR1 


2845 


L0LDR2 


2849 


LDLDR3 


.2850 


LDOVLY 


2710 


LDRBD1 


1897 


LDRBD2 


1904 


LDRBD3 


1905 


LDRCHK 


1809 


LOSTJP 


0364 


LEGOEC 


2571 


LEVO 


0515 


LEVI 


0519 


LEV10 


0555 


LEV11 


0559 


LEV12 


0563 


LEV13 


0567 


LEVI* 


0571 


LEV15 


0575 


LEV2 


0523 


LEV3 


0527 


LEV4 


0531 


LEV5 


0535 


LEV6 


0539 


LEV7 


0543 


LEV8 


0547 


LEV9 


0551 


LINENO 


0066 


LINRSP 


0061 


LINST 


0060 


LINSTA 


0062 


LINSTQ 


0063 


LL1 


2948 


LL2 


2951 


LLCONT 


2930 


LLERID 


3043 


LLLINE 


3026 


LLHSG2 


3050 


LLMSG3 


3052 


LLMSG4 


3060 


LLNAM 


2988 


LLTERM 


2960 


LLTRH1 


2981 


LOADER 


2038 


LOADNX 


1817 


LOAORB 


1888 


LOPER 


0056 


LOPERA 


0058 


LOPERQ 


0059 


LOPRSP 


0057 


LVOADR 


0518 


LV10AD 


0558 


LVUAD 


0562 


LV12AD 


0566 


LV13AD 


0570 


LV14A0 


0574 


LV15AD 


0578 


LV1ADR 


0522 


LV2ADR 


0526 


LV3A0R 


0530 


LV4A0R 


0534 


LV5ADR 


0538 


LV6A0R 


0542 


LV7ADR 


0546 


LV8AOR 


0550 


LV9ADR 


0554 


MAINL 


0869 


MANUAL 


0221 


MBSEND 


5259 


MBSOLY 


2738 


HCINIT 


0944 


MEMPE 


QUO 


MESi 


2300 


MES2 


2463 


MESS 


1733 


MESSO 


1650 


MESS1 


1711 


MESS1A 


1691 


MESS1B 


1704 


MESS1C 


1683 


MESS2 


1715 


MESS2A 


1718 


HESS3 


1697 


MESS4 


1723 


MESS6 


1730 


MESSAO 


1612 


MESSA1 


1665 


NESSA2 


1666 


MESSA3 


1676 


MESSA4 


1679 


MESSAG 


1609 


MESSIN 


1682 


MISWX 


0315 


MNE000 


4270 


MNE006 


42 7 8 


MNE010 


4311 


MNE012 


4313 


MNE014 


4314 


MNE016 


4316 


MNE018 


4317 


MNE020 


4327 


MNTERR 


0042 


MNTRST 


0225 


HONPP 


0223 


MPE0O0 


3032 


HPE005 


3839 


MPE007 


3844 


MPE010 


3897 


MPE015 


3892 


MPE020 


3858 


MPEQ25 


3862 


MPE030 


3879 


MPE035 


3869 


MPX 


0246 


MPXCNT 


3899 


HPXRTN 


0093 


MSEOOO 


4906 


MSE0O5 


4920 


MSE010 


4924 


MSE015 


4944 


MSE020 


4956 


MSINIT 


0240 


MSTOOO 


4957 


MSTJP 


0473 


MSTOP 


0483 


MT 


0024 


MT8 


0027 


MT89TR 


3626 


MT8L1 


3625 


MT8L10 


372 5 


MT8L11 


3679 


MT8L2 


3620 


MT8L3 


3627 


MT8L4 


3645 


MT8L5 


3641 


MT8L6 


3649 


MT8L7 


3652 


HT8L8 


3659 


MT8LB 


3660 


MT8LC 


3677 


MT8LO 


3675 


MT8LDR 


3588 


MT8LDX 


3602 


MT8L0Y 


3612 


MT8LE 


3681 


MT8LF 


3686 


MT8LRH 


3657 


MT8UN 


3587 


MT8S 


2118 


MTLOll 


2100 


MTLD13 


2132 


MTL014 


2121 


MTL015 


2123 


MTLD16 


2131 


MTL017 


2137 


HTL018 


2174 


MTL07A 


2085 


MTLD7B 


2090 


MTLDPE 


2108 


MTLDR1 


2048 


MTL0R3 


2062 


MTLDR4 


2068 


MTL0R5 


2071 


MTL0R6 


2072 


MTLOR7 


2077 


MTLDR8 


2091 


MTLOR9 


2094 


HTLDRW 


2105 


MTPE 


0128 


MTSTJP 


1395 


MTUNIT 


2037 


MUTEXC 


0137 


MUXRTA 


0020 


NAMBLK 


1929 


NAMCOM 


1933 


NAME 


0019 


NAMW05 


3053 


NAHMD6 


3054 


NEGCNT 


1432 


NEHMAS 


1454 


NEWS J 


1382 


NOCDAL 


3508 


NOOPAL 


3389 


NOGO 


1971 


NOMOCO 


0119 


NOP 


3211 


NOTFM1 


1637 


NOTFOR 


1624 


NOTHCB 


1914 


NOTXH 


2971 


NOXFR 


0123 


NULL 


0256 


0CALL8 


2716 


OLLERR 


0134 


OMITTO 


1394 


OVERLA 


1793 


OVFHA 


0283 


OVRBL1 


1829 


0VRBL2 


1832 


OVRBLK 


1821 


OVRLA1 


1805 


OVRLAY 


0219 


OVRLOl 


1808 


PAROAT 


1463 


PASEQ 


0017 


PASSJ 


0016 


PASSMM 


0015 


PD1 


1469 


PE 


0742 


PEESYM 


0047 


PF 


0741 


PFE000 


0724 


PFE005 


0737 


PFE010 


5272 


PFE015 


5278 


PFE0 20 


5283 


PFESYM 


0048 


PFR 


0752 


PFRT 


0247 


PL 


3058 


POINT 


2278 


POSOOO 


4982 
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DATEl 


12/17/7 


4 


POS005 


k985 


POSO10 


4993 


POS020 


4994 


PPMON 


2723 


PREEXD 


2181 


PREEXS 


2179 


PREG 


0065 


PRELOR 


0018 


PRESTP 


1283 


PRESTR 


2782 


PRESYM 


0045 


PRGCLK 


0037 


PRGERR 


0041 


PRGLOA 


0252 


PRLFLG 


0508 


PROC 


0617 


PROCO 


3755 


PROC1 


0624 


PROC10 


3783 


PR0C2 


0625 


PR0C2A 


3766 


PR0C2B 


3756 


PROC3 


0670 


PR0C4 


0679 


PR0C5 


0687 


PR0C5A 


0688 


PROC6 


0690 


PROC 9 


3764 


PRO CD 


0642 


PROCES 


0589 


PROTEC 


0111 


PRT42 


2690 


PRTBFR 


2654 


PRTBSY 


2681 


PRTCLR 


2663 


PRTEND 


2703 


PRTEQU 


2673 


PRTFNC 


2675 


PRTREJ 


2660 


PT 


0022 


PTOO 


3096 


PT01 


3099 


PT02 


3105 


PT03 


3120 


PT04 


3125 


PT05 


3134 


PT06 


3136 


PT07 


3140 


PT08 


3142 


PT1LDR 


3090 


PTALAR 


0125 


PTCNT 


3089 


PTERR 


3168 


PTYPE 


2724 


PHR 


0747 


QTEMP 


0640 


R 


1783 


Rl 


1784 


RBO001 


2003 


RBD003 


2005 


RBD004 


2010 


RBO0 05 


2011 


RB00 07 


2015 


RB0009 


2020 


RBDBLK 


1994 


R8DTAB 


1921 


RBIT 


0094 


RD 


0234 


ROEOOO 


5038 


ROE 010 


5042 


ROMOLY 


0230 


READ 


2282 


READE 


5262 


RECKST 


0227 


REEOOO 


4514 


REE0 02 


4517 


REE004 


4523 


REE005 


4527 


REE 006 


4529 


REG 


0586 


RELPOS 


0220 


REPORT 


0800 


REQIN2 


0887 


REQ.IN3 


0889 


REQIN4 


0893 


REQ.IN5 


0901 


REQIN6 


0907 


REOIN7 


0909 


REQIN8 


0920 


REQIN9 


0924 


REQINT 


0886 


REQIT 


0212 


RIEOOO 


4060 


RIE006 


4075 


RIE007 


40 89 


RIE008 


4079 


RIE009 


4098 


RIE011 


4102 


RIE012 


4103 


RIE013 


4105 


RIE015 


4115 


RIEO20 


4116 


RIE025 


4132 


RIE030 


4145 


RINT 


0241 


RP1 


1273 


RP2 


1274 


RP3 


1276 


RPTOO 


0783 


RPT01 


0768 


RPT02 


0790 


RPT02A 


0795 


RPT02B 


0796 


RPT02C 


0797 


RPT04 


0809 


RPT05 


0814 


RPT06 


0816 


RPT10 


0816 


RPTF 


3144 


RPTF 00 


3146 


RPTF01 


3156 


RPTF02 


3157 


RPTF03 


3162 


RPTRTN 


0823 


RTA 


1401 


RTAQ 


1485 


RTNMSG 


0827 


RTNSMR 


0825 


RTMSTP 


0826 


RHOFLG 


0486 


RWEOOQ 


5055 


RHE005 


5060 


RME010 


5116 


RNE011 


5066 


RHE013 


5078 


RWE014 


5142 


RHE015 


5147 


RHE018 


5155 


RHE020 


5156 


RHE021 


5089 


RHE022 


5092 


RWE024 


5112 


RHE025 


5113 


RWE030 


5128 


RWE035 


5145 


RWE045 


5118 


RME050 


5161 


RHE0 55 


5166 


RHE065 


5187 


RWE070 


5170 


RWE075 


5188 


RME080 


5201 


RME095 


52 04 


RHE160 


5234 


RWE165 


5238 


RHE170 


5249 


RHE172 


5240 


RWE173 


5245 


RWE175 


5246 


RHE200 


5208 


RWE202 


5223 


RHE205 


5227 


RHE210 


5229 


RWE220 


5253 


RHTOOO 


5172 


RHTOOl 


5174 


RWT002 


5175 


RHT003 


5176 


RWT004 


5177 


RHT005 


5178 


RWT006 


5179 


RWT008 


5180 


RWT009 


5181 


RWT010 


5182 


RHTOll 


5183 


S2O20 


1540 


S7FFF 


1506 


S8O0A 


1553 


SAVIT 


2102 


SCAN2 


1450 


SCAN4 


1452 


SCANIO 


1443 


SO AT A 


0096 


SELIN 


0243 


SETMAS 


0274 


SETP 


2465 


SETPO 


2501 


SETPFG 


2505 


SETPGO 


2488 


SETTER 


2984 


SIEOOO 


4011 


SIE010 


4039 


SIE012 


4041 


SINGLE 


1435 


SJPARA 


1437 


SJX 


1400 


SKIP 2 


0087 


SKIP2A 


0090 


SKIP4 


0079 


SKIP4A 


0082 


SKIP5 


0071 


SKIP5A 


0074 


SKIP6 


0085 


SKIP7 


0069 


SKIP8 


0077 


SKIPOK 


1963 


SKPXIT 


1380 


SLSPAO 


0699 


SLSPIO 


0693 


SMER1 


0857 


SMERCO 


0862 


SMERIO 


0861 


SMERQ 


0864 


SMERRO 


0248 


SMERRT 


0663 


SMMOOO 


0201 


SMMCNT 


0349 


SMMERR 


0846 


SMMSJ 


0370 


SMSTAR 


0956 


SPB 


0232 


SPB1 


2191 


SPB2 


2192 


SPB4 


2196 


SPB5 


2199 


SP86 


2204 


SP 87 


2205 


SPB8 


2213 


SPB9 


2215 


SPBEND 


2220 


SPC42 


2697 


SPCK 


2329 


SPCK1 


2338 


SPCK1A 


2334 


SPCK2 


2342 


SPCK3 


2346 


SPE000 


5007 


SPE005 


5016 


SPE010 


5011 


SPP000 


2190 


STi 


0076 


ST1RSP 


0068 


ST2 


0078 


ST2RSP 


0070 


START 


0029 


STAT 


2287 


STATNO 


0051 


STB7B3 


1858 


STCNTL 


0055 


STJP 


0275 


STKLGH 


3900 


STMORE 


1772 


STOP 


0210 


ST0PA3 


3046 


ST0PA4 


3048 


STOPBF 


0507 


STOPCN 


1431 


ST0PQ3 


3047 


ST0PQ4 


3049 


STOPX 


1292 


STOPX1 


1309 


ST0PX2 


1319 


ST0PX3 


1320 


ST0PX4 


1331 


ST0PX5 


1332 
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OATEX 


12/17/74 


ST0PX6 


1340 


STPEXI 


1386 


STPTYP 


1508 


TCLOCK 


4791 


TDATA 


0098 


TELAQ 


2260 


TEMPLO 


0505 


TEMPTS 


0509 


TESTEQ 


0021 


TIE000 


«»726 


TIE001 


4727 


TIE002 


4745 


TIE003 


4751 


TIE004 


4760 


TIE006 


4764 


TIE010 


4767 


TIE011 


4768 


TIE012 


4772 


TIE050 


4775 


TIMER 


0054 


TIT000 


4786 


TIT001 


4787 


TK128 


0268 


TK16 


0265 


TK32 


0266 


TK64 


0267 


TKR 


0264 


TMES 


2477 


TOHEAD 


2853 


TRANSF 


10 53 


TSACTV 


0428 


TSCOML 


0095 


TSDATA 


0097 


TSEQAD 


0441 


TSFREQ 


0430 


TSIAAO 


0452 


TSINIT 


0427 


TSLTS1 


0960 


TSLIS2 


0969 


TSLIS3 


0972 


TSLIS4 


0976 


TSSEL 


0426 


TSTCLR 


1845 


TSTFND 


1850 


TSTJP 


0463 


TSTNAM 


0040 


TTBUSY 


1739 


TTEMP 


2242 


TTOTTI 


0485 


TTYBZY 


0217 


TTYEND 


2596 


TTYMSG 


1735 


TTYPE 


1599 


TYBZYA 


1747 


TYPAQX 


1526 


TYPBTL 


2177 


TYPEOU 


0216 


TYPLIN 


1552 


TYSEL 


0249 


UNIT 


3287 


UNREQI 


0113 


USRPNT 


1393 


WE 


0035 


WECHST 


0034 


WEST1 


0030 


WEST2 


0031 


HEST3 


0032 


WEST4 


0033 


WR 


0235 


WRE000 


5044 


WRITE 


5263 


XCHAOR 


0089 


XCHST 


0088 


XCHST3 


0091 


XCOMUS 


0269 


XOEO00 


4807 


XOE001 


4808 


XDE002 


4821 


XDT001 


4818 


XFRBLK 


1862 


XITINT 


0755 


XLEV02 


0649 


XLVOAO 


0896 


XREPOR 


1727 


XSAVE 


1397 


XST1 


0084 


XST2 


0086 


XTIME 


0053 


ZERO 


0415 
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